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IDENTIFICATION 


Product Code: AC-B049C-MC 
Diagnostic code: MAINDEC-11-CRLPK-C 


Product Name: CRLPKCO LPA/AD11-K Test 
Revised: DEC. 1980 
Maintainer: Diagnostic Group 


Copyright (C) 1976, 1977, 1979, 1980 
Digital Equipment corporation, Maynard, Mass. 


This software is furnished under a license for use only on a_ single 
computer system and may be copied only with the inclusion of the above 
copyright notice. This software, or any other copies thereof, may not 
be provided or ctherwise made available to any other person except for 
use on such system and to one who agrees to these license terms. 
Title and ownership of the software shall at all times remain in dec. 


The information in this document is subject to change without notice 
and should not be construed as a commitment by Digital Equipment 
Corporation. 


DEC assumes no responsibility for the use or reliability of its 
software in equipment which is not supplied by DEC. 
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ABSTRACT 


This diagnostic has two starting addresses: 200 for standard 
tolerances and 210 for tighter option test area tolerances. 


This diacnostic tests the ADIiK with. or without a wraparound 
module (65036). 


When starting the diagnostic, a set of tests is listed and this 
statement is printed out: “Type the letter and carriage return 
of the desired test:' The following chart indicates which 
letter corresponds to which test: 


WwW: The entire Wraparound test (requires 65036 module) 

a. Analog subtests 

b. Noise test 

c. Interchannel Settling test 

d. Differential Linearity and Relative Accuracy test 
Calibration test only 

Noise test only 

Interchannel Settling only 


Logic Subtests only , 
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Auto test (requires 65036 module) 


Logic subtests 

Analog subtests 

Noise Test 

Interchannel Settling Test 

. Differential Linearity and Relative Accuracy Test 


THIS PROGRAM IS A MODIFIED VERSION OF ‘MD-11-DZADL-B"’ IT 

WAS MODIFIED TO ENABLE THE OPERATOR TO CHECK OUT THE AD 11K 
OPTION WHEN IT IS ON THE LPA11-KX I/0 BUS. NO RECABLING IS 
NEEDED. SOME TEST DONE IN THE ORIGINAL DIAGNOSTIC SUCH AS 
ARBITRATION TEST, WERE DELETED AS THEY COULD NOT BE CHECKED. 

IF THIS DIAGNOSTIC DOESN'T FIND A SUSPECTED PROBLEM, YOU MAY 
HAVE TO RUN 'MD-11-DZADL-B'’ YOU SHOULD RUN "MD-11-CRLPA" BEFORE 
RUNNING THIS DIAGNOSTIC. PLEASE READ SECTION 10. 
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REQUIREMENTS 


Equipment 


PDP-11 family computer with 8K of memory 
Console terminal 

AD11K Module installed in an LPA-11 
Bit-map terminal <OPTIONAL> 

65036 Wraparound Module 


crm er cr a mm we eee + —-=— oo 


SEQ 0002 


2.2 


eee eee ee ee ee Ce 


LN 
Oo 


4.0 


4.1 


5.0 





Storage 

This oore uses all 8K of memory and is not ‘‘chainable’’ on an 
8k CPU. The program is ‘‘chainable’’ on 12K or greater. The 
program will destroy “absolute loader'’ on an 8K CPU, if ‘WwW or 
‘A’ is selected. 


LOADING PROCEDURE 


Procedure for loading normal binary tapes should be followed. 


" 
STARTING PROCEDURE 


Control Switch Settings 
Standard PDP-11 Format 
Swi5=1 Halt on error 


SW14=1 Loop on test 

SW13=1 Inhibit error typeouts 
SW12=1 Halt for Bit map display 
SWi1=1 Inhibit iterations 
SW10=1 Bell on error 


SW9 = Loop on error. 
SW8 =1 Loop on test in SWR <7:0> 


200 is the starting address cof the diagnostic for standard 
tolerances. 204+is the restart address. 210 is the starting 
address of the diagnostic for the option test area's ier 
tolerances. Starting address of the USER LINK loop is at 214. 


OPERATING PROCEDURE 
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Start the diagnostic at 200 or 210. The program eg My, and the 
list of tests available, will be printed out foilowed by a 
message “Type the letter and carriage return for the desired 
test: . en type the letter you want, according to the table 
Listed and hit carriage return. 
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SEQ 0003 
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Two control characters, “A and “C, are set aside for interrupting 
a test and transferring control to either the beginning of the 
diagnostic (“C) or to the peg inning of the specific test which 
was in progress (*A). During the logic tests while a reset is 
being performed, “C or “A will not be executed until after the 
reset a been completed, therefore hit “C or “A until it is 
successful. 


For machines without a hardware switch register, location SWREG 
(176) is used as a software switch register. To modify the 
contents of SWREG, type “G. The program responds with the 
current contents of SWREG and a slash. Type the desired new 
contents of SWREG followed by a carriage return. 


If ‘Ww is typed, the ghey will type ‘xx ADI1K*s FOUND’. Where 
xx is the number of ADI1K's in octal. If the number is greater 
than 1, the test will be run successively on each ADI1K. The 
program will run through the logic subtests, the Noise test on 8 
edges, the Interchannel Settling test on 8 edges, and the 
Differential Linearity and Relative Accuracy test. A 65036 
wraparound module is required. The program supports AD11K 
expansion beyond 16. channels. To run this test on a group of 
channels other than 0-17, load 20,40, or 60 into location BASECH 
(1336) for channels 20-37, 40-57, 60-77. 


If ‘C’’ is typed, the program will run the calibration test and 
will loop on that test until the operator halts it. If a certain 
AD11K is to be tested, its status register address must be loaded 
into SBASE (1250), and its vector address must be loaded into the 
Low je of SVECT1 (1244) (the high byte containing the 
priority). 


If 'N’’ is typed, the program will run the Noise test tagged 
BEGINN'’ and will loop on this test until the operator halts it. 
If a certain ADI11K is to be tested its status register address 
must be loaded into SBASE (1250), and its vector address must be 
loaded into the low byte of $VECT1 (1244) (the high byte 
containing the priority). 
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If ‘’S’ is typed, the program will run the Interchannel Settling 
test tagged ‘BEGINS’ and will loop on this test until the 
operator halts it. At the — ye of this test, the operator 
must respond to the statements asking for the ‘FROM’ channel and 
the ‘TO'’ channel by typing in the channei value in octal and 
hitting carriage return. If a certain ADI1K is to be tested its 
status register address must be loaded into $BASE (1250), and its 
vector address must be loaded into SVECT1 (1244) (the high byte 
containing the priority). 


If “‘A’’ is typed, the program will execute the logic tests, analog 
tests, noise, settle and differential Jigeg B44 At the 
beginning of the test the re will type "XX ADI1K's Found’. 
Where XX IS THE NUMBER OF AD11K's in octal If the number is 

reater than 1, the test will be run successively on each ADIIK. 

he program supports AD11K expansion beyond 16. channels. To 
run this test on a group of channels other than 0-17, load 20,40, 
- m into location BASECH (1336) for channels 20-37, 40-57, 


If "L'' is typed, the program will execute the logic tests, 
che he. "END PASS'' when it has completed an entire pass. At the 
eginning of the test the he will type "XX AD1IK's Found’. 
Where XX is the number of AD11K's in octal If the number is 
greater than 1, the test will be run successively on each ADIIK. 
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ERRORS 

This program uses the Diagnostic ‘‘SYSMAC’’ package for error 
ae pd te and typeout. he error information consists of the 
following: 

ERRPC: Location at which an error was detected. 


STREG: Address of the status register. 

ADBUFF: Address of the buffer 

CHANL : Channel value 

NOMINAL : ny correct data | 
TOLERANCE: The acceptable deviation from the nominal 
ACTUAL: Actual data 

EXPECTED: Expected correct data 


MISCELLANEOUS 


Execution Time 


Execution time for each of the tests is: 


Calibration: 8 conversions/5 seconds @ 110 baud 

Wraparound Test: 17 minutes first pass; 535 minutes 
for successive passes 

Settling Test: 1 minute 

Noise Test: 1 minute 

Logic Test: 1 minute 

Auto Test: 18 minutes first pass, 36 minutes 


for successive passes 


Status Register and Vector Addresses and Priority 


When ++ pg more than one ADI1K, the difference in addresses is 

presently 40 for bus address_and vector address. These values 

are in VAOR (bus address) (1326) and VVCT (vector address) 
(1330). The first ADI1K's status register address must be in 

SBASE (1250), its vector address must be in the low byte of 

evetls (1244), and the priority must be in the high byte of 
V a 


AD11K Priority 


If AD11K is set for a priority other than 6, the high byte of 
SVECT1 (1244) must be eeruated accordingly (the low byte 
ponsewans, She vector address). If more than one ADIIK is being 


tested, all must be set at the same priority. 
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If a hardware switch register is present and the operator desires 
to use a software switch register and the “G feature; it is 
necessary to load the starting address, set the hardware switch 
register to all ones (-1), and hit start. The program will then 
run with the software swtich register. 


BIT-MAP Graphic Output 
The screen display may be halted for examination by setting bit 
12. And then just hit continue to complete the program's 
execution. 

USER LINK TO I/O DEVICE 

A SPECIAL USER LINK HAS BEEN PROVIDED IN ORDER FOR THE 

OPERATOR TO EXAMINE OR MODIFY LOCATIONS ON THE LPA11-KX 

1/0 BUS. (NOTE: THIS CANNOT BE DONE DIRECTLY.) 

PROCEDURE : 

1) START THE PROCESSOR AT LOCATION 214 


2) THE DIALOG TO EXAMINE A LOCATION IS AS FOLLOWS: 


E OR D 
DEVICE ADDRS= “OCTA!. ADDRS"’ 
XXXXKX 


WHERE XXXXXX IS THE CONTENTS OF THE SPECIFIED LOC. 
3) THE DIALOG TO MODIFY A LOCATION IS AS FOLLOWS: 


E OR D “p 
DATA= “DATA TO BE DEPOSITED" 


4) THE PROGRAM WILL STAY IN THIS LOOP UNTIL THE OPERATOR 
Ag or AT THIS TIME THE PROCESSOR SHOULD BE 
HALTED. 


NOTE: THE OPERATORS RESPONSE IS ENCLOSED IN QUOTES. 
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SEQ 0007 
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A G5036 wraparound module must be present when running the auto 
test and the wraparound test. 


Switch on G5036 must be in ‘'0' position. 
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The go oy (G5036) module must be connected as follows: 


K TO BCOBR CONNECTION A-A, VV-VV 
BCO8R TO G5036 CONNECTION "'UPSIDE-DOWN'’ A-VV, VV-A 
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The program is chainable under XXDP. However, you may only 
execute it one pass ( R RLPKCO/1 ). The reason is because of 
the "BUS RESET'' in the end of pass handler. 


PROGRAM DESCRIPTION 


Logic Tests 


These 8 logic subtests run sequentially without further operator 
intervention after he/she has typed in the number of ADIIK's to 
be tested. Its purpose is to check that each of the mux bits can 
be loaded and properly read back; that initialize clears the 
external start enable bit, the done bit, the interrupt enable 
bit, the overflow bit, the error flag, and the A/D start bit. It 
also checks that the A/D done flag sets at end of conversion and 
clears when the converted value is read. It checks the interrupt 
logic and the correct setting of the error flag. 


Calibration Test 


This test begins when the operator types ‘‘C’’, it then loads the 
channel from the switch register bits 0-7 and does a conversion 
on that channel. If SWR bit 13 is down, it prints out the 
converted value on the teletype; otherwise, if SWR bit 15 is up, 
it puts the converted value in the display register. The 
operator may change the channel at — | time we the test, 
however the new values from the new channel will not be printed 
until the next Line of 8 values is printed. The 8 values on each 
Line correspond to only one channel. 
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SEQ 0008 
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Differential Linearity ". | SEQ 0009 


This test is to determine if a change in the input voltage 
represents a similar change in the resulting converted binary 
value. 


Settling Test 


The purpose of this test is to check that the time needed to 
settle and correctly report a new input value after switching 
—— does not exceed the expected amount of time for such a 
change. 


Noise Test 


This test measures the internal short-term repeatability noise 
within the A/D. RMS noise equals 1 standard deviation of the 
Gaussian curve, PEAK noise equals 2.5 standard deviation of the 
Gaussian curve. 


Analog Tests 
These 11 subtests check the channels and their output. 
L.PA11 (SYSTEM) DIAGNOSTIC SUMMARY 


DIAGNOSTICS FOR THE LPA11 ARE WRITTEN AT THREE LEVELS: (1) 
TOTAL PDP=-11 SYSTEM, (2) LPA11 SYSTEM; AND, (3) LPA11 OPTIONS. 


LEVEL 1, IS DESIGNED TO ISOLATE A FAILURE TO THE LPA11 SYSTEM. 
ALL OPTIONS ON THE PDP-11 ARE EXERCISED. 


LEVEL 2 DIAGNOSTICS ISOLATE A FAILURE TO THE INDIVIDUAL OPTION 
WITHIN THE LPA11. THE LEVEL 2 DIAGNOSTIC IS MD-11-CRLPA. WHEN 
THE USER RUNS '‘CRLPA'’ HE CAN GENERALLY TELL WHICH OPTION DIAGNOSTIC 
(LEVEL 3) TO RUN NEXT. 8254 AND M8200-YC ERRORS MAY ‘LOOK’ 
ALIKE AND "'CRLPA'' MAY NOT BE ABLE TO DISTINGUISH BETWEEN THEM.” 
ARBITRATION ERRORS WILL NOT BE DETECTED BY THIS DIAGNOSTIC. 


LEVEL THREE ge AY AID IN DETERMINING IF THE ERROR WAS IN 

FACT ON THE OPTION THE ‘‘CRLPA’’ SPECIFIED. THE USER MAY ‘‘LOOP’’ ON 

THE ERROR. WITHIN LEVEL THREE, THERE ARE TWO GROUPS OF 

DIAGNOSTICS. THE FIRST GROUP REQUIRES NO ‘EXTRA’ WORK BY THE 

USER IN ORDER TO RUN. GROUP ‘‘A"' DIAGNOSTICS DO NOT CHECK e 
ARBITRATION, AND REQUIRE EXTRA TIME FOR EXECUTION. THE SECOND - 
GROUP (GROUP ''B'’) REQUIRES THAT THE USER RECONFIGURE THE PDP-11 : 
eth a RECONFIGURATION INVOLVES CABLING THE UNIBUS TO THE 

LPA' ° 


THE DIAGNOSTIC FOR THE M8254 FALLS INTO THE GROUP ‘'B"’ CATAGORY. — 
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THE LPA11-KX DIAGNOSTIC KIT WILL INCLUDE: 


| 
| SEQ 0010 
hb ao — us. pine. Tes 
LPAII=Kx LEVEL 2s MD=11=CRLPA LPAI1-K SYSTEM EXER. 
M8254 “B MD=11-CRLPN M8254 (IPBM) FIELD DIAG. 
AAI=K A MD=11-CRLPB LPA/AAI1*K DIAG. 
B MD=11-DZAAC AAI1=K DIAG. 
ari} A MD=11=CRLPC LPA/ARI1 DIAG. #1 
A MD-11-CRLPD LPA/ARI1 DIAG. #2 
A MD-11-CRLPE LPA/ARI1 DIAG. #3 
a MD-11-DZARA ARI1 DIAG. #1 
: MD-11-DZARB ARI1 DIAG. #2 
8 MD-11-DZARC ARI1 DIAG. #3 
DR11-K A MD-11-CRLPF LPA/DR11-K DIAG. 
8 MD-11-D2DRG DRI1-K DIAG. 
KW11-K A MD-11-CRLPG LPA/KW11-K DIAG. 
8 -— WD=11-DzKuK KWi1-K DIAG. 
LPS11 A MD-11-CRLPH {PA/LPS11 DIAG. #1 
A MD-11-CRLPI LPA/LPS11 DIAG. #2 
A MD-11-CRLPJ LPA/LPS11 DIAG. #3 
B MD-11-DZLPC LPS11 DIAG. #1 
B MD-11-DZLPD LPS11 DIAG. #2 
8 MD-11-DZLPI LPS11 DIAG. #3 
AD11-K A MD-11-CRLPK LPA/AD11-K DIAG. 
8 MD-11-DZADL ADI1-K DIAG. 
m8200-YC 8 MD-11-CRLPL LPA/DMC-11 DIAG. TST 1 
8 MD-11-CRLPM LPA/DMC-11 DIAG. TST II 
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PRODUCT CODE: MAINDEC=11-DZADL=-B 

PRODUCT NAME : AD11-K PERFORMANCE TEST 
DATE: DECEMBER 1976 

MAINTAINER: DIANOSTIC GROUP 
REAR R AA EEEERERERORERERRRRREREREEE 
PRODUCT CODF: MAINDEC=11-DRLPK=A 

PRODUCT NAME: LPA/AD11-K PERFORMANCE TEST 
DATE: JANUARY 1978 

MAINTAINER: DIAGNOSTIC GROUP 


REASON FOR DEVELOPMENT: 


1) TO ENABLE THE OPERATOR TO CHECK OUT THE AD11-K OPTION 
WHEN IT IS ON THE LPA11-KX 1/0 BUS. 


CHANGES MADE : 


1) TOOK OUT CERTAIN TESTS FROM ORIGINAL DIAGNOSTIC (I.E. 
INTERRUPTS, TIME DEPENDENT CODE). 


2) REPLACED DIRECT LINKS TO DEVICE WITH MACRO CALLS TO THE 
KMC-11 MICRO CODE. KMC-11 MICRO CODE (FILE:DRLPX2) HANDLES 
DIRECT COMMUNICATIONS WITH THE DEVICE. 


FILE: DRLPA.MAC 
CONTAINS MACRO LINKS BETWEEN PDP-11 CODE AND KMC~-11 
MICRO CODE. FILE: ORLPX2 NEEDS TO BE ASSEMBLED WITH 
DRLPK (SEE .CTL FILE). 


FILE: DRLPX2 
MICRO CODE FILE THAT GETS LOADED INTO THE KMC-11 
VIA ROUTINES IN DRLPA.MAC. 


DRLPX2.P11 IS ASSEMBLED WITH MACY11 (ONLY) AS ANY OTHER 
-P11 FILE. THE RESULTS OF ITS ASSEMBLY IS A .OBJ 

MODULE AS WAS THE RESULT OF THE ASSEMBLY OF THE 
DIAGNOSTIC .P11 FILE. BOTH .OBJ FILES GET LINKED 

WITH LNKX11 (ONLY). 


FILE: DRLPK.CTL 
THIS FILE EXPLAINS SEQUENCE OF ASSEMBLES AND LINKS. 
IT IS IN TOPS-20 FORMAT. 
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PRODUCT CODE: AC-B049B-MC 
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SEQ 0011 
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DIAGNOSTIC CODE: MD-11-CRLPK-B 
PRODUCE NAME: CRLPKB LPA/AD11-K TEST 
DATE REVISED: JULY 1979 

MAINTAINER: DIAGNOSTIC GROUP 
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THE *B’’ VERSION WAS GENERATED TO REPAIR THE FOLLOWING PROBLEMS: 


PROGRAM LISTING DID NOT AGREE WITH THE BINARY FILE AFTER LOC. 
12064. THIS WAS DUE TO THE RELEASE ENGINEERING GROUP REASSEMBLING 
TO GET THE LISTING AND USING THE BINARY FILE SUPPLIED BY AUTHOR. 
(DEVELOPED WITH C2 SYSMAC = RELEASED WITH C3 SYSMAC) 


WHEN SUBTEST ‘‘A’’ OR ‘‘W'’ WAS SELECTED, A = LOAD ERROR" 
OCCURRED AT LOCATION 17612 ON THE "THIRD PASS". 
(DUE TO THE AUTHOR FORGETTING ABOUT WHERE THE MICRO-CODE "'HIDES'’ AT. 


“TST11°° COULD NOT BE LOOPED ON CORRECTLY. 
(ORIGIONAL PROGRAM USED A ABSOLUTE TAG FOR AT THAT TEST <<TST17>>) 


AFTER A POWER FAILURE, THE PROGRAM APPEARED TO RECOVERY PROPERLY. 
BUT AFTER THE OPERATOR — THE TEST NUMBER THE PROGRAM REPORTED 
“LPA FAULT'’ AND THEN HALTS. 

(PROGRAM DID A RESTART - IT MUST BE STARTED) 


’ REASSELBLED THE FILE - <EASY AND FREE FIX WHEN WORKING ON PROBLEM 2-4 


PROTECT THE ‘‘HIDDEN’’ SPACE THAT THE MICRO-CODE RESIDES AT. 
REMOVE INCORRECT TAG FROM ‘‘TST11"° 


BEACUSE THE KMC-11 IS A VOLIATLE DEVICE A COMPLETE PROGRAM START 
WAS NEEDED. JUST A ONE LOCATION PATCH iN THE POWER FAIL ROUTINE 
FIXES THE PROBLEM. 
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VERSION ‘'C’’ WAS MADE BECAUSE OF A MICRO-CODE CHANGE IN THE 
LPA-11. EFFECTIVELY ONLY THE TITLE AND TITLE TYPEOUT 

WERE CHANGED IN THE SOURCE. THE MAJOR CHANGE OCCURRED IN THE 
MACRO FILE THAT THE PROGRAM IS ASSEMBLED WITH. 


_ 
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SEQ 0012 
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LNKX11 VO23 24-OCT-80 9:51 SEQ 0013 
#CRLPKC.BIN/B:42000, CRLPKC .MAP=CRLPKC ,CRLPX2/E 


LOAD MAP 

IDENT: 4.01 

TRANSFER ADDRESS: 000001 
LOW LIMIT: 042000 

HIGH ‘LIMIT: 046000 


RETTeeeeee 


MODULE LPA 
SECTION ENTRY ADDRESS SIZE 
<. ABS.> 000000 000000 


DRLPX2 0 
> 042000 000000 
tttertenere 
MODULE DRLPX2 
SECTION ENTRY ADDRESS SIZE 
< > 042000 000000 


<ABCODE > 042000 004000 
RUN-TIME: 0 SECONDS 
2K CORE USED 
LPA-AD11K TEST MD-11-CRLPKC MACY11 306(1063) 24-OCT-80 09:48 
CRLPKC.P11 14-AUG-80 13:59 TABLE OF CONTENTS SEQ 0014 
1163 BASIC DEFINITIONS 
1164 OPERATIONAL SWITCH SETTINGS 


1215 TRAP CATCH 
(1) STARTING ADDRESS(ES) 
1220 ACT11 H 
1222 APT PARAMETER BLOCK 
1223 COMMON TAGS 
(2) APT MAILBOX-ETABLE 
(1) ERROR POINTER TABLE 
1263 MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 
1313 CONTROL A _AND C DECODERS 
1343 INITIAL START-UP HOUSEKEEPING, AND DIALOGUE ° 
1348 INITIALIZE THE COMMON TAG ' 
1354  teteate If Rite TYPE TERMINAL Is PRESENT 
1446 T1 FLOAT A ONE TKRU MULTIPLEXER BITS 
1455 T2 LOAD AND READ BACK INTERRUPT ENABLE BIT6 
1461 T3 LOAD AND READ BACK CLOCK OVERFLOW START ENABLE BIT5 
1466 ic LOAD AND READ BACK dag START ENABLE BIT4 
1470 T5 LOAD AND READ BACK ERROR FLAG BIT15 
1475 16 TEST DONE “* SETS AND ITO CLEARS ON END OF a 
1486 17 TEST A/D DONE FLAG CLEARS WHEN READ CONVERTED VALUE 
1496 T10 TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER 
1524 WRAPAROUND TEST SECTION 
1526 111 TEST C GROUND 
1537 T12 TEST CONVERSION FROM EXT. START 
1553 113 TEST CHO GROUND 
1561 114 TEST CH1 GROUND 
1569 115 TEST CH 7 VOLT 
1578 T16 TEST CH 9 wag 
1586 117 TEST CH4 -2.5 VOLTS 
1594 120 TEST VERNIER +2.5 VOLIS DAC ON CHI2 
1641 T21 TEST CHI 
1648 122 TEST CHI 
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65 
68 
69 
699 
71 
fs 
75 
77 
50 
51 
0 


1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
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, B 2 
125 OFFSET ON CHO 
$e NOISE TEST ON 8 EDGES 
T25 SETTLE TEST ON 8 EDGES 
126 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST 
CALIBRATION TEST 
LOGIC TEST SECTION 
AUTO TEST 


WRAPAROUND TEST 

END OF PASS ROUTINE 

ASCII MESSAGES 

TTY INPUT ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 
SCOPE HANDLER ROUTINE 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPEOUT ROUTINE 
TYPE ROUTINE 

APT COMMUNICATIONS ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TRAP DECODER 

TRAP TABLE 

POWER DOWN AND UP ROUTINES 


eee we elle —S ee re ewe eee oe oe ow oe 


_-- a ee + | 3 rr we 


= = — <> = 


aa 





ae —_- —. mee ee ee el —-_- = _——_— -_—— 


| 


LPA-ADI1K TEST att Vn ny 
CRLPAB .MAC 26-SEP-80 13:48 
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. « 
MACY11 30G6(1063) 24-OCT-80 09:48 PAGE 1 


»REM C 
CRLPAB.MAC 
WELCOME, THIS DIAGNOSTIC IS ONE IN A SERIES OF DIAGNOSTIC 
DESIGNED IN ORDER TO AID YOU IN TESTING THE LPA-11XX OPTION. 
1 HOPE THAT YOU HAVE READ THE DOCUMENTATION SECTION OF THIS 
DIAGNOSTIC. IF YOU HAVE,YOU KNOW ABOUT ALL - THE DIAGNOSTICS 
THAT ARE AVAILIBLE FOR TESTING THE LPA SYSTEM 


GOOD LUCK ° 


C 
-GLOBL DRLPX2 


SEQ 0015 
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‘MMAST.MAC 
CRLPAB.MAC 26-SEP-80 13:48 
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MACY11 306(1063) 24-OCT-80 09:48 PAGE 2 


~TITLE MMAST.MAC 
~IDENT /4.01/ 


LPA11-K MICRO CODE 
CHARLES A. SAMUELSON 
NOVEMBER, 1977. 
~TITLE OMAST.MAC 
~IDENT /4.01/ 
LPA11-K MICRO CODE 


CHARLES A. SAMUELSON | 
NOVEMBER, 1977 


SEQ 0016 
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'CRLPKC.P11- 14=AUG-80 13:59 : SEQ 0017 ( 
1162 .TITLE LPA=AD11K TEST MD-11-CRLPKC | 
(1) -*#COPYRIGHT (C) 1980 
(1) -*DIGITAL EQUIPMENT CORP. 
() ; MAYNARD, MASS. 01754 
CW) :sPROGRAM BY MODIFIED BY R. SHOOP . 
(1) THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
) ; *PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 
1163 * SBTTL BASIC DEFINITIONS 
(1) :*INITIAL ADDRESS OF THE STACK POINTER *** 1100 ##* | 
(1) 001100 STACK= 1100 | 
(1) -EQUIV EMT,ERROR »:BASIC DEFINITION OF ERROR CALL 
(1) -EQUIV I0T,SCOPE BASIC DEFINITION OF SCOPE CALL | 
(1) : *MISCELLANEOUS DEFINITIONS 
(1) 000011 HT= 11 : CODE FOR HORIZONTAL TAB 
(1) 000012 LF= 12 "= CODE FOR LINE FEED 
(1) 000015 CR= 15 = CODE FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 = CODE FOR CARRIAGE RETURNSL INE FEED | 
(1) 177776 PS= 177776 = PROCESSOR STATUS WORD 
(1) -EQUIV PS,PSW | 
(1) 177774 STKLMT= 177774 »;STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 =PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 > :HARDWARE SWITCH REGISTER | 
C) 177570 DDISP= 177570 = HARDWARE DISPLAY REGISTER | 
(1) :*GENERAL PURPOSE REGISTER DEFINITIONS | | 
(1) 000000 RO= 40 ::GENERAL REGISTER | 
(1) 000001 Ri= %1 > GENERAL REGISTER 
(1) 000002 R2= %2 GENERAL REGISTER 
(1) 000003 R3= 13 :GENERAL REGISTER 
(1) 000004 R4= %4 :GENERAL REGISTER 
(1) 000005 R5= 45 :GENERAL REGISTER 
(1) 000006 R6= 16 ;;GENERAL REGISTER 
(1) 000007 R7= 47 “GENERAL REGISTER 
(1) 00 SP= 16 *: STACK POINTER 
(1) 000007 PC= 7 = PROGRAM COUNTER 
(1) ;*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PRO= sO) -- PRIORITY LEVEL 0 
(1) 000040 PRi= 40 := PRIORITY LEVEL 1 
(1) 000100 PR2= 100 = PRIORITY LEVEL 2 
(1) 000140 PR3= 140 = PRIORITY LEVEL 3 
(1) 000200 PR4= 200 = PRIORITY LEVEL 4 
(1) 000240 PR5S= 240 = PRIORITY LEVEL 5 
(1) 000300 PR6= 300 >:PRIORITY LEVEL 6 
(1) 000340 PR7= 340 = PRIORITY LEVEL 7 
(1) :#'"SWITCH REGISTER'’ SWITCH DEFINITIONS 
(1) SW15= 100000 
(1) 040000 Swi4= 4000 
(1) 020000 Swi3= 20000 
(1) 010000 SWwi2= 10000 
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ASIC DEFINITIONS 
Wil= 4000 
Wid= 2000 
WO9= 1000 
wO8= 400 
wO7= 200 
WO6= 100 
WO5= 40 
WO4= 20 
wO3= 10 
WwO2= 4 
wOl= 2 
WwO0= 


“EQUIV SW00,SWO 


*DATA at) + haa aaa (BITOO TO BIT15) 
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;;TIME OUT AND OTHER ERRORS 
3 RE RERVED AND ILLEGAL INSTRUCTIONS 


>: TRACE TRAP 
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SEQ 0018 
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CRLPKC.PI1 14-AUG-80 13:59 C DEFINITIO SEQ 0019 
() 000014 BPTVEC= 14 :;BREAKPOINT TRAP (BPT) 
| (\) 000020 IOTVEC= 20 i SINPUT/QUTPUT TRAP (OT) *®SCOPE®s 
Y 000024 PWRVEC= 24 ER FAIL 
| 000030 EMTVEC= 30 tT ERULATOR TRAP (EMT) **ERROR#* 
1) 000034 TRAPVEC=34 :: TRAP" TRAP 
| (1) 000060 TKVEC= 60 si TTY KEYBOARD VECTOR 
() 000064 TPVEC= ‘TTY PRINTER VECTOR 
; a 000240 PIRQVEC=240 “PROGRAM INTERRUPT REQUEST VECTOR 
1164 -SBTTL OPERATIONAL Switch SETTINGS 
Q\) te SWITCH USE 
(1) st 2 ewwese See eoooeesesesse 
(1) 15 HALT ON ERROR 
(1) : 14 LOOP ON TEST 
(1) t 13 INHIBIT ERROR TYPEOUTS 
(1) t 12 HALT FOR BIT-MAP DISPLAY 
(1) st 11 INHIBIT ITERATIONS 
(1) t 10 BELL ON ERROR 
(1) f 9 LOOP ON ERROR 
(1) ‘t 8 LOOP ON TEST IN SWR<7:0> 
1165 170400 ABASE= 170400 
1166 140340 AVECT1= 140340 
1167 000300 APRIOR= 300 
1168 
1173 
1180 
1185 
1192 
1197 
1203 
1209 
1214 
1235 .SBTTL TRAP CATCHER 
(1) 000000 .=0 
(1) :*#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ''.+2,HALT' 
(1) :*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
() iwi :*LOCATION 0 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
(1) 000174 000000 DISPREG: .WORD 0 ;:SOFTWARE DISPLAY REGISTER 
(1) 000176 000000 SWREG: .WORD 0 :;SOFTWARE SWITCH REGISTER 
(1) SBITL STARTING ADDRESS(ES) 
(1) 000200 000137 001712 JMP - @#BEGIN ;; JUMP TO STARTING ADDRESS OF PROGRAM 
1216 000204 000137 002402 JMP = QW BEG2 RESTART ADDRESS 
1217 000210 000137 001720 JMP ss @WBEGIN START ADDRESS FOR OPTION TEST AREA 
1218 000214 000137 020346 JMP = a#SUTK STARTING ADDRESS FOR USER LINK 


_— —_——_— - = — - --—-—. 


LPASADIIK TEST MD-11-CRLPKC 


H 2 
MACY11 306(1063) 24-OCT-80 09:48 PAGE 4 
CRLPEC.P P11 14-AUG-80 13:59 ACT11 HOOKS 


SEQ 0020 


| Tr ~SBTTL ACT11 HOOKS 

| (2) SRAERRRERRHERHREAATEATAKEAAKATKeKeKHKAKAKKeKKeAKeeeKeeeeeeeeeees 
(1) ‘HOOKS REQUIRED BY ACT11 
(1) 000220 SSVPC ;SAVE PC 
(1) 000046 .=46 
(1) 000046 012074 SENDAD ;31)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) 000052 .=52 
(1) 000052 000000 ORD 0 332) SET LOC. 4a" TO ZERO 
(1) 000220 =$SVPC ;; RESTORE P 

1221 001000 .=1000 
“ot ~SBTTL APT PARAMETER BLOCK 

(2) SERRA RAAEAERAEAAAAAAAAAAHA HATE HA KeKteKeeteAteteettetenteereeeee 
(1) ;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) SERRE RAEEAAAHAAETAEEAAAAATAAAEKARAKAKARKKE Ke HHA HAH KA HAHA Tee Te 
(1) 001000 ~$X=. >; SAVE CURRENT LOCATION 
(1) 000024 .=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 009200 200 ;;FOR APT START UP 
(1) 000044 =44 ;;POINT TO APT INDIRECT ADDRESS PNIR. 
(1) 000044 001000 APTHDR ;;POINT TO APT HEADER BLOCK 
(1) 001000 =.$X  ;;RESET LOCATION COUNTER 
(2) SRARARERERERERATAAATHAKAAAAAAAe ete Ke KeKeteteteteeeeKeKeeeeeeeee 
(1) SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
rae : INTERFACE SPEC. 
(1) 001000 SAPTHD : 
(1) 001000 000000 SHIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 1002 001174 SMBADR: .WORD S$MAIL : ADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 002260 STSTM: .WORD 1200. ;;RUN TIM OF LONGEST TEST 
(1) 001006 000764 SPASTM: .WORD sf +s RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 003244 SUNITM: .WORD 1700. s;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 000031 . WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 
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‘We ~SBTTL COMMON TAGS 

| (2) SREARAAEAREREEEREAE TAA AEAAA AAA AAAKAARARAKAEKAAAARAe He ALe Kee Hs 
(1) SSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
Mt. : USED IN THE PROGRAM. 
(1) 001100 .=1100 
(1) 001100 SCMTAG: ;;START OF COMMON TAGS 
(1) 001100 000000 -WORD 0 
(1) 001102 000 STSTNM: .BYTE 0Q ;;CONTAINS THE TEST NUMBER 
(1) 001103 000 SERFLG: .BYTE 0 ;; CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: .WORD 0 ;; CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: .WORD 0 ;; CONTAINS SCOPE LOOP ADDRESS 
(1) 001110 000000 SLPERR: .WORD 0 ;; CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD 0 ;;CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 SITEMB: .BYTE 0 ;; CONTAINS ITEM CONTROL 7? 
(1) 001115 0 SERMAX: .BYTE 1 ;;CONTAINS MAX. ERRORS PER TEST 
(1) 001116 00 SERRPC: .WORD 0 ;: CONTAINS PC OF LAST ERROR eo 
(1) 001120 000000 SGDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
(1) 001122 000000 SBDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘BAD‘ DATA 
(1) 001124 000000 SGDDAT: .WORD 0 ;;CONTAINS ‘GOOD* hy 
(1) 001126 000000 SBDDAT: .WORD 0 ;;CONTAINS "BAD" DATA 
(1) 001130 000000 WORD QO ; ;RESERVED--NOT TO BE USED 
(1) 001132 000000 .WORD 0 
(1) 001134 000 SAUTOB: .BYTE 0 ;; AUTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 :; INTERRUPT MODE INDICATOR 
(1) 001136 000000 -WORD 0 
(1) 001140 177570 SW ~WORD ODSWR Sees Ft OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP ;;ADDRESS OF DISPLAY REGISTER 
(1) Pelee 177560 STKS: 177560 ::TTY KBD STATUS 
(1) 001146 177562 $TKB: 177562 ::TTY KBD BUFFER 
(1) 001150 177564 STPS: 177564 s;TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 S$TPB: 177566 ;:TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 . SNULL: .BYTE 0 ;; CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS 2 ;;CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: .BYTE 12 >: INSERT FILL CHARS. AFTER A “LINE FEED" 
(1) 001157 000 STPFLG: .BYTE 0 : 3) TERMINAL AVAILABLE’’ FLAG (BI1T<07>=0= YES) 
(1) 001160 STIMES: 0 ;;MAX. NUMBER OF ITERATIONS 
(1) 001162 000000 SESCAPE :0 : SESCAPE ON ERROR ADDRESS 
(1) 001164 177607 000377 $BELL: .ASCIZ ee CODE FOR BELL 
(1) 001170 077 SQUES: .ASCII ; QUESTION MARK 
(1) 001171 015 SCRLF: .ASCII £18 3; CARRIAGE RETURN 
(1) 001172 000012 SLF: eASCIZ <12> ;;LINE FEED 
(2) s RRR ReAARReeeeeeAAATA AAA Ae eee KAA e teeter AeeetreAetreAAeAKe Aes 
os: ~SBTTL APT MAILBOX-ETABLE 
(3) PpeeeeeeeeeateeeeeeerreeeeeeeeeeeeeetettetetreKereeeeeeeteterest 
(2) E 
(2) 001174 SMAIL: ;;APT MAILBOX 
(2) 001174 000000 SMSGTY: .WORD AMSGTY $53 bee TYPE CODE 
(2) 001176 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(2) 001200 000000 STESTN: .WORD ATESIN ;; 
(2) 001202 000000 SPASS: .WORD APASS ;;PASS COUNT 
(2) 001204 000000 SDEVCT: .WORD ADEVCT ; DEVICE COUNT 
(2) 001206 000000 SUNIT: .WORD AUNIT ; UNIT NUMBER 
(2) 001210 000000 SMSGAD: .WORD AMSGAD : SMESSAGE ADDRESS 
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PKC.P11 14-AUG-80 13:59 T MAILBOX-ETABLE SEQ 0022 
(2) 001212 000000 SMSGLG: .WORD AMSGLG ; sMESSAGE LENGTH 

(2) 001214 SETABLE: “APT ENVIRONMENT TABLE 

(2) 001214 000 SENV .BYTE AENV ::ENVIRONMENT BYTE 

(2) 001215 SENVM: BYTE AENVM ; ENVIRONMENT MODE BITS 

(2) 001216 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 

(2) 001220 000000 SUSWR: .WORD  AUSWR ; USER SWITCHES 

(2) 001222 000000 S$CPUOP: .WORD ACPUOP ;;CPU TYPE, OPTIONS 

(2), ;* BITS 15- is CPU T 

(2) ;* 1/04=01, "NT /05= 02,11/20=03,11/40=04,11/45=05 
(2) 59 11770206" PpQ=07, 0=10 

(2) ;* BIT 10=REAL TIME CLOCK 

(2) : BIT 9=FLOATING POINT PROCESSOR 

(2) : BIT 8=MEMORY MANAGEMENT 

(2) 001224 000 $MAMS1: .BYTE AMAMS1 ;:HIGH ADDRESS,M.S. BYTE 

(2) 001225 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE,BLK& 

(2) :* MEM.TYPE BYTE <= (HIGH BYTE) 

(2) ;* 900 NSEC CORE=001 

(2) ;* 300 NSEC BIPOLAR=002 

(2) : :* 500 NSEC NOS= 0 

(2) 001226 000000 $MADR1: .WORD AMADR1 ;:HIGH ADDRESS,BLK 

(2) i. MEM.LAST ADDR. 5 “OYTES. THIS WORD AND LOW OF ‘'TYPE’' ABOVE 
(2) 001230 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 

(2) 001231 000 SMTYP2: .BYTE AMTYP2 ::MEM.TYPE,BLK# 

(2) 001232 000000 SMADR2: .WORD AMADR2 : MER. LAST ADDRESS BLKA2 

(2) 001234 000 SMAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS, S$ .BYT 

(2) 001235 000 SMTYP3: .BYTE AMTYPS  ;;MEM. TYPE BLK 

(2) 001236 000000 SMADR3: .WORD AMADRS ;;MEM.LAST ADDRESS. BLKa3 

(2) 001240 000 SMAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS .M.S.BYTE 

(2) 001241 000 SMTYP4: .BYTE AMTYP4 ::MEM.TYPE BLKAG 

(2) 001242 000000 SMADR4: .WORD AMADRG4 ::MEM.LAST ADDRESS, BLK&#4 

(2) 001244 140340 SVECT1: .WORD AVECT1 :: INTERRUPT VECTOR#1,BUS PRIORITYA1 
(2) 001246 000000 SVECT2: .WORD AVECT2 :: INTERRUPT VECTOR#2BUS PRIORITY#2 

(2) 001250 170400 $BASE: .WORD ABASE  ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000000 SDEVM: .WORD -ADEVM ;;DEVICE M 

(2) 001254 000000 $CDW1: .WORD ACDw1 OEM TROLLER DESCRIPTION WORDA1 
Beep ne 
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‘CRLPKC.P11 14-AUG-80 13:59 ERROR POINTER TABLE SEQ 0023 
) .SBTTL ERROR POINTER TABLE 
(1) :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(1) **THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
(1) ; “LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE 1s PERTINENT. 
(1). -*NOTE1: IF SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERR 
) : *NOTE2: EACH TER IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) st EM ::POINTS TO THE ERROR MESSAGE 
(1) * DH -: POINTS, TO THE DATA HEADER 
(1) : DT -:POINTS TO THE DATA 
+ ;* DF -:POINTS TO THE DATA FORMAT 
(1) 
(1) 001256 SERRTB: 
1225 
1226 
1227 
1236 :ITEM 1 
1237 001256 014245 EM1 :STATUS REG. ERROR 
1238 001260 014405 DH1 “ERRPC STREG EXPECTED ACTUAL 
1239 001262 014570 OT1 -$ERRPC, STREG, $GDDAT, $BDDAT 
1240 001264 014630 DF 1 
1241 
1242 
1243 :1TEM 2 
1244 001266 014273 | EM2 :FAILED TO INTERRUPT 
1245 001270 014526 DH3 “ERRPC STREG ACTUAL 
1246 001272 014620 DT3 “$ERRPC, STREG, $BDDAT 
1247 001274 014630 DF 1 
1248 
1249 -1TEM «3 
1250 001276 014323 EM3 :UNEXPECTED INTERRUPT 
1251 001300 014526 DH3 sERRPC STREG 
1252 001302 014620 DT3 “$ERRPC, STREG 
1253 001304 014630 DF 1 
1254 
1255 :ITEM 4 
1256 001306 014354 EMG :ERROR ON A/D CHANNEL 
1257 001310 014443 DH2 “ERRPC STREG CHAN NOMINAL TOL ACTUAL 
1258 001312 014602 DT2 > $ERRPC,STREG, CHANL.SGDDAT, SPREAD, SBDDAT 
1259 001314 014630 DF 1 
1260 
1261 
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1263 .SBTTL MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 
1264 001316 170400 STREG: ABASE ; ADDRESS OF yy REGISTER 
1265 001320 170402 ADBUFF: ABASE+2 sADDRESS OF A/D BUFFER 

1266 001322 000300 BASEBR: APRIOR : INTERRUPT PRIORITY LEVEL 
1267 001324 140342 VECTR1: AVECT1+2 

1268 001326 000040 VADR: 40 : INCREMENT FOR BUS ADDRESS 
1269 001330 000040 vvCcT: 40 “INCREMENT FOR VECTOR ADDRESS 
1270 001332 000000 BASECH: 0 * BASE CHANNEL 

1271 001334 000060 KBVECT: 60 

1272 001336 000000 IDE: 0Q :NO. OF WIDE STATES 

1273 001340 000000 NARROW: 0 sNO. OF NARROW STATES 

1274 001342 000000 IRST: 0 

1275 001344 000000 SKIPST: 0 sNO. a SKIPPED STATES 

1276 001346 000000 0 “WORK AREA 

1277 001350 00 CH1 0 “FIRST CHANNEL 

1278 001352 000000 CH2 0 = SECOND CHANNEL 

1279 001354 000000 NBEXT: 0 :NO. OF ADI1K'S TO BE TESTED 
1280 001356 000000 NMBEXT: 0 :NO. OF AD11K'S TO BE TESTED 
1281 000000 DUMMY: 0 : DUMMY CHANNEL 

1282 001362 000000 CHANL: 0 > CHANNEL VALUE 

1283 1364 000000 TADDR: 0 :TEST ADDRESS 

1284 001366 000000 RNA: 0 : RANDOM 

1285 001370 000000 RNB: 0 ; NUMBER 

1286 001372 000000 RNC: 0 ; VALUES 

1287 00137 RMS: 0 sRMS NOISE VALUE 

1288 001376 000000 PEAK: 0 :PEAK NOISE VALUE 

1289 001400 0000 FLAG: 0 “VTS FLAG 

1290 001402 SPREAD: 0 ; DEVIATION FROM THE NOMINAL 
1 001404 AC: 0 AR VALUE 

1 001406 DELAY 0 : TIME DELAY COUNTER 

1 001410 DGE: 0 “EDGE VALUE 

1 001412 BITPNT: 0 

1 001414 IN: 0 :MIN VALUE 

1 001416 WFTEST: 0 sOPTION TEST AREA FLAG 

1 001420 ° X: 0 > MAX X VALUE 

1 001422 PERCNT: 0 :PERCENT FOR SAR ROUTINE 

1 001424 OUT: 0 ‘ 
1 001426 MYTEMP: 0 

1 001430 STEMP1: 0 

1 001432 STEMP2: 0 
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MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 


“ADDRESS OF KMC-11 OF LPA-11 


LPCI: 
KMADO WORD 
LPMR: 
KMAD1 . WORD 
LPCO: 
KMAD2 WORD 
LPSO: 
KMAD3 . WORD 
LPADL 
KMAD4 ~ WORD 
LPADH 
KMADS5 WORD 
LPMS1 
KMAD6 . WORD 
| PMS2 
KMAD7 » WORD 


VECTOR: .WORD 
VECTPS: .WORD 


VERSN: .WORD 
-DVLS: .WORD 
-BLKW 
UNE XP : 
001162 MOV 
INC 
ERROR 
1$: CLR 
RTI 


170460 


170460+1 
170460+2 
170460+3 
170460+4 
170460+5 
170460+6 
170460+7 


AVECT1&8777 
4+AVECT18777 


5 
0 
16. 
#1$,SESCAPE 
SERFLG 


3 
SESCAPE 


THE ADDR FOR KMADO MAY BE 
CHANGED BY THE USER TO REFLECT 
A DIFFERENT KMC-11 ADDR. THE 
REST OF THE ADDRESSES WILL 

BE CHANGED BY THE PROGRAM. 


;BASE KMC ADDR. MAY BE PATCHED BY USER. 


;>DO NOT <;KMC-CSR ADDR 
;>PATCH <3 
;>THIS AREA < 
;>DO NGT < 
;>PATCH 
;>THIS AREA < 


;BASE VECTOR OF KMC 
;VECOTR ADDR.+2 


;CURRENT VERSION NUMBER OF MICROCODE. 
;/DEVICE LIST OF I/0 ADDR. DEFINED 
;/BY INIT. 


A 


:;ESCAPE TO 1$ ON ERROR 


;RETURN ESCAPE TO NORMAL 
sUNEXPECTED INTERRUPT 


SEQ 0025 
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177570 


ISERV: 


1$: 


2$: 


POPRO: 


RETURN: 
NONE : 


CONTROL A AND C DECODERS 


CONTROL A AND C DECODERS 
RO,-(SP) 


-(§ ; E RO 

OV TKB,RO “GET CHARACTER 
BIC #177600,RO 

CMPB 0,43 -1$ IT °C? 
BNE $ 

TYPE  ,CMS :ECHO CHARACTER 
MOV #STACK,SP 

JSR PCR :RESET & SET INTRPT. EN. 
JMP BEG2 

CMPB «RO #1 “1S IT *A? 

BNE 2$ 

TYPE AMS -ECHO CHARACTER 
MOV #STACK,SP 

JSR PCR :RESET & SET INTRPT. EN. 
JMP @TADOR “RETURN TO TEST 
CMPBséRO# “1S IT *G? 

BNE NONE 

CMP = SWR,#177570 sHARDWARE SWREG? 
BEQ NONE 

TYPE  ,GMSG -ECHO CHARACTER 
MOV aSwR,-(SP) i SAVE SUR FOR TYPEOUT 
TYPOS =:G0 TYPE--OCTAL ASCII 
.BYTE 6 =: TYPE 6 DIGIT 

‘BYTE 1 >: TYPE LEADING ZEROS 
TYPE SLASH 

RDOCT :READ NEW VALUE 


MOV (SP)+,aSWR 
MOV (SP)+,RO 


TYPE ,QUEST 
BR POPRO 
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;LOAD NEW SWREG VALUE 


s TYPE “a 


A TT TT ee eee ee 


SEQ 0026 


- ~- mm ee ce a mm a ee ce | 








| | EE ae ba Die 6B ease | 
LPA-ADIIK TEST MD-11-CRLPKC  - MACY11 306(1063) 24-OCT-80 09:48 PAGE 8 ul 





CRLPKC.P11 | 14-AUG-80 13:59 INITIAL START-UP, HOUSEKEEPING, AND DIALOGUE SEQ 0027 CI 
1343 .SBTTL INITIAL START-UP, HOUSEKEEPING, AND DIALOGUE | 
1344 001712 005037 001416 BEGIN: CLR WFTEST 
1345 001716 000403 BR RBEG 
1346 001720 012737 000001 001416 BEGIN2: MOY #1, WETEST 
1347 001726 RBEG: SET 
1348 .SBTTL iNITIALIZE THE COMMON TAGS 

(1) = CLEAR THE COMMON TAGS (SCMTAG) AREA 
(1) 001726 012706 001100 MOV #SCMTAG,R6 SS OLEAR LOCATION TO BE CLEARED | 
(1) 001732 005026 CLR (R6)+ ;CLEAR MEMORY LOCATION | 
(1) 001734 022706 001140 CMP #SWR,R6 ;;DONE? | 
(1) 001740 001374 BNE 6 :LOOP BACK IF NO | 
(1) 001742 012706 001100 #ST ACK, SP «SETUP THE STACK POINTER 
(1) ;: INITIALIZE A FEW VECTORS 
(1) 001746 012737 015226 000020 ath ast Q@#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
(1) 001754 012737 000340 000022 NOV #340, a#1OTVEC+2 ;:LEVEL 7 
(1) 001762 012737 015504 000030 MOV #SERROR, avEATV VEC. sem VECTOR FOR ERROR ROUTINE | 
(1) 001770 012737 000340 000032 MOV #340 ,a#EMTVEC+2 ::LEVEL | 
(1) 001776 012737 021324 000034 MOV #STRAP, aa TRAPVEC. TRAP ” aes FOR TRAP CALLS | 
(1) 002004 012737 000340 000036 MOV #340, a#TRAPVEC#2; aT: | 
(1) 002012 012737 021402 000024 MOV #SPWRON, A#PURVEC RUE FAILURE VECTOR | 
(1) 002020 012737 000340 000026 MOV #340,a#PWRVEC+2 ;:LEVEL 7 | 
(1) 002026 013737 012042 012034 MOV SENDCT,SEOPCT | ::SETUP END-OF-PROGRAM COUNTER 
(1) 002034 005037 001160 CLR STIMES ;; INITIALIZE NUMBER OF ITERATIONS | 
(1) 002040 005037 001162 CLR SESCAPE "= CLEAR THE ESCAPE ON ERROR ADDRESS | 
(1) 002044 112737 000001 001115 MOVB a  SERMAX ::ALLOW ONE ERROR PER TEST 
(1) 002052 012737 002052 001106 MOV - SLPADR Hy Vey THE LOOP ADDRESS FOR SCOPE | 
(1) 00206 012737 002060 001110 MOV : “$L PERR TUP THE ERROR LOOP ADDRESS | 
(2) sSIZE FOR AH ARDWARE SWITCH REGISTER. IF NOT FOUND OR ni IS 
(2) STEQUAL TO A " -1"", SETUP FOR A SOFTWARE SWITCH REGISTER | 
(2) 002066 013746 000004 MOV a#vERRVEC, -(SP) ;;SAVE ERROR VECTOR 
(2) 002072 012737 002126 000004 MOV #64$, aPERRVEC ;;SET UP ERROR VECTOR | 
(2) 2100 012737 177570 001140 MOV #0SW WR, SWR :SETUP FOR A HARDWARE SWICH REGISTER | 
(2) 002106 012737 177570 001142 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER | 
(2) 002114 022777 177777 177016 CMP #-1,aSWR :: TRY TO REFERENCE HARDWARE SWR | 
(2) 002122 001012 BNE 66$ : BRANCH IF NO TIMEOUT TRAP OCCURRED | 
i 2) ;3AND THE HARDWARE SWR IS NOT = -1 | 
(2) 002124 000403 BR 65$ :BRANCH IF NO TIMEOUT 
(2) 002126 012716 002134 64$: MOV #65$, (SP) -:SET UP FOR TRAP RETURN 
(2) 002132 000002 RTI | 
(2) 002134 012737 000176 001140 65$: MOV #SWREG, SWR -:POINT TO SOFTWARE SWR | 
(2) 002142 012737 000174 001142 MOV #DISPREG, DISPLAY : 
ie 002150 012637 000004 66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR | 
(2) 002154 005037 001202 CLR SPASS *CLEAR PASS COUNT 
(2) 002160 132737 000200 001215 BITB #APTSIZE,SENVM iTS USER SIZE UNDER APT 
(2) 002166 001403 BEQ 67% sYES,USE NON-APT SWITCH 
ig} Bost 7e 012737 001216 001140 67$ MOV #SSWREG, SWR :=NO, USE APT SWITCH REGISTER 


ws mm rm ee e+ ---— —_ — -_-—- =e e- -- -_ 
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CRLPKC.P11  14-AUG-80 13:59 INITIALIZE THE COMMON TAGS SEQ 0028 C| 
1350 : 
) :THIS SECTION OF CODE HANDLES INITIALIZING LPA=11 FUNCTIONS 
(1) 
(1) 002176 010046 MOV RO,<(SP) 
(1) 002200 010146 MOV R1,-(SP) 
(1) 902202 013700 001434 MOV KMADO, RO -GET KMC-11 ADDRESS. 
() 2206 012701 001436 MOV #KMAD1,R1 “GET ADDR. OF ADDR. LIST. 
(1) 002212 005200 68$: INC RO :UPDATE ADDR. 
(1) 002214 010021 MOV RO,(1)¢ “WRITE ADDR. | 
(1) 002216 020127 001454 CMP R1. #KMAD7+2 “DONE ALL ADDRESSES? 
(1) 002222 001373 BNE 68$ "NO = DO NEXT ADDR. | 
(1) 002224 005037 001462 CLR .DVLS “CLR ADDR. LIST. | 
(1) 002230 0126 MOV (SP)+,R1 
(1) 002232 012600 MOV (SP)+,RO | 
1351 002234 005037 001400 CLR FLAG :CLEAR VT55 FLAG | 
1352 002240 005737 000042 TST a#42 -1$ IT CHAINED? 
1353 002244 001033 BNE REST1 
1354 .SBTTL DETERMINE IF VT5S TYPE TERMINAL IS PRESENT | 
1355 002246 042777 000100 176670 BIC #100, a$TKS | 
1356 002254 104401 013673 TYPE  ,CO -TYPE ASCIZ STRING | 
1357 002260 004737 002664 JSR PC ,VTFLG “GET A CHARACTER | 
1358 002264 020027 000033 CMP RO, #33 | 
1359 002270 001017 BNE NOVT55 :NO VTS5 PRESENT | 
1360 002272 004737 002664 JSR PC ,VTFLG “GET A CHARACTER , 
1361 002276 020027 000057 CMP RO, #57 27 
1362 002302 00101 BNE NOVTSS “NO VT55 PRESENT | 
1363 002304 004737 002664 JSR PC, VTFLG “GET A CHARACTER | 
1364 002310 020027 000103 CMP RO, #103 | 
1365 002314 001403 BEQ v155 -VT55 IS PRESENT 
1366 002316 020027 000105 CMP RO,#105 
1367 002322 001002 BNE NOVT55 | 
1368 002324 005237 001400 VT55: INC FLAG | 
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PAGE 10 
DETERMINE IF V1S5 TYPE TERMINAL IS PRESENT 
2 aay TO DETERMINE WHICH TEST TO RUN 


NOVTSS TYP EAD1 
REST Isr PCF LXONE 
MOV KBVECT, 
MOV #ISERV, (RO)+ 
MOV #340, (RO 
MOV #62341, RNA 
MOV #142315, RNB 
MOV #127623, RNC 
JSR PC, WFADJ 
BEG2: MOV #STACK,SP 
TST a#42 
BEQ 1$ 
JMP BEGL 
1$: TYPE  ,MSG71 
TRYAG: RDLIN 
BIS #100, aSTKS 
CLR PSW 
MOV (SP)+,RO 
BICB #40, (RO) 
CMPB es (RO) WTA 
BNE 1$ 
JMP BEGINA 
1$: CMPB ss (RO) ,#'C 
BNE 2$ 
JMP BEGINC 
2$: CMPB ss (RO) , #'L 
BNE 3g 
JMP BEGL 
3$: CMPB—s« (RO) , #"N 
BNE 4$ 
JMP BEGINN 
4$: CMPB Ss (RO) #'S 
BNE 5$ 
JMP BEGIN 
5$: CMPB.s«(RO) ,#"W 
BNE 6$ 
JMP BEGINW 
6$: TYPE =, QUEST 
BR TRYAG 
( 


———— ee -———— = ee a ee ee 


;3NO, 


;3NO0, 


;3NO, 


;3NO, 


:3NO, 


; INITIALIZE ADDRESSES 


;RANDOM NO, VARIABLES 


;STANDARD OR OPTION TEST TOLERANCES? 
;RESET STACK IN CASE RESTARTED 
;1S IT CHAINED? 


;GO TO LOGIC TESTS 


;READ ANSWER 


:1S IT A? 

TRY C€ 
:GO0 TO AUTO TEST 
sis it ¢7 

TRY L 
:G0 TO CALIBRATION TEST 
si$ it &? 

TRY N 
360 TO LQGIC TESTS 
:1S IT N? 

TRY S 
;GO0 TO NOISE TEST 
3:18 IT S$? 

TRY W 
;G0 TO SETTLE TEST 
si Ww? 


S$ IT 
;:NO,TRY AGAIN 


;GO TO WRAPAROUND TEST 
;WAIT FOR CHARACTER 


SEQ 0029 


- 
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i 


et a a a ad td 

Gt 

—_ 
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ee oe oe oe oe eee et ot oe ot ot ot ot ot eet ot ot et et ae ee 
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001354 
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TERMINE IF V™55 TYPE TERMINAL IS PRESENT 


SEQ 0030 


;SIZE AND REPORT THE NUMBER OF AD11K DETECTED 


TESTAD: MOV 
CLR 


1$: 


*? 
4 


2$: 


3$: 


VTFLG: 
1$: 


2$: 


CLR 


SBASE ,SBDDAT 
.DVLS+2 
NBEXT 


SGDDAT ,aSBDDAT 
SAERR 


NBEXT 
peepager 
#1, SAUTOB 
NBEXT,-(SP) 


2 

0 

»MSG50 

NBEXT 
NBEXT,NMBEXT 
PC 


a$TKB,RO 
#177600, RO 


;SETUP TO TEST FOR ADIIK'S 


;CLEAR AD11K COUNTER 
;ADDRESS AD11K 


:/ PUT DATA FROM $GDDAT TO DEVICE REG S$BDDAT 
>DEVICE EXSIST? =0,YES 

s INCREMENT AD11K COUNTER 

*GET NEXT ADI1K 

:;TRY NEXT AD11K 

sTEST IF AUTO MODE 

:BR IF YES 

;;SAVE NBEXT FOR TYPEOUT 

:; TYPE NUMBER OF AD11K'S 

;;G0 TYPE--OCTAL ASCII 

s;TYPE 2 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 

sADJUST AD11K COUNT 

sKEEP COUNT OF NUMBER 

BL A PRESENCE 

° V 

::VT55 RESPONDS WITH <33><57>[<103> OR <105>] 
“POP A WORD OFF STACK 

::NO VT5S5 PRESENT 


;TEST VT55 CODE 


---- 
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DETERMINE IF V™55 TYPE TERMINAL IS PRESENT SEQ 0031 


BEGINL: 


SF RRRAAAAAAAERAEAEAATAARARAKAKE AHA AKAAAAAKAKKeKKKRKARAAKAAAA ARATE 


s*TEST 1 FLOAT A ONE THRU MULTIPLEXER BITS 


—MMARBARAAAZALELALLALLALALLERALAS EERE RRR RRR RR RRR RRR RASA RASA RAAS SS 


téT1: MOV #TST1,SLPADR 

MOV #TST1,SLPERR 

MOV #B1T8,SGDDAT :LOAD FIRST BIT 
2$: JSR PC, TESTIT 

ERROR 1 : FAILED 10 LOAD + READ BIT 
1$: ROL $GDDAT :GET NEXT BIT 

CMP $GDDAT, #BIT14 FINISHED? 

BNE 2$ ::NO,GO tO NEXT TEST 


S RARER AAAREAAEEEEA AERA A AEA AEE EAA AAAEAARAAAARAAAAAAE AH AAAEA TEES 


:eTEST 2 LOAD AND READ BACK INTERRUPT ENABLE BIT6 
S RRR ARAAAAARAEHEAAAAEAAAT TATA AAAAAAAAARAAAKAKARA AKA A AAAS 
TST2: SCOPE 
MOV #UNEXP, aVECTOR :SETUP FOR UNEXPECTED INTERUPT 
MOV #B1T6,$GDDAT :LOAD EXPECTED DATA 
JSR PC, TESTIT 
ERR OR 1 sFAILED TO LOAD + READ INTERRUPT ENABLE 


SRR RARER EERE AR ERE EERE AEE EERE RARER EEAERREREAEREEERERERE RES 


s*TEST 3 LOAD AND READ BACK CLOCK OVERFLOW START ENABLE BITS 
PETTITT I LILI LI LLL, 

1813: SCOPE 
MOV #B1TS,SGDDAT ;LOAD EXPECTED DATA 
JSR PC,TESTIT 
ERROR 1 ;FAILED TO LOAD + READ CLOCK OVERFLOW START ENAB 

SRR Ree Ree eeeA AeA TATA ee ee eee etre ee eteKeeeeeeeeeeeereeeeeeeeee 

;*TEST 4 LOAD AND READ BACK EXTERNAL START ENABLE BIT4 

SRR RRRA RARER RAHA RATATAT AAA AA TATA A AAA eA AA AKA eeKeteLALereteeeee 

TST4: SCOPE ‘ 
MOV #B1T4,$GDDAT ;LOAD EXPECTED DATA é 
JSR PC,TESTIT 
ERROR 1 ;FAILED TO LOAD + READ EXT. START ENABLE 


SL RRARRAAAAAAAAAAAAAAA HATA AEAAAA Ae AeAAeAAAARAAAAKeRAAAAA AAA ATTA TTS 


s*TEST 5 LOAD AND READ BACK ERROR FLAG BIT15 


PERTTI titi t titi titi iii iii ii titi iret i iti ria 
TST5: SCOPE 
;LOAD EXPECTED DATA 


MOV #B1T15, a 
JSR PC, TESTIT 
1 ;FAILED TO LOAD * READ ERROR FLAG 


ERROR 
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* pace 13 
TEST DONE FLAG SETS AND BITO CLEARS ON END OF CONV. 


SEQ 0032 


SRRARAAHAAAREEHAAAKeT ee eeeeAeeeeKeeeKAKeKeKeneeKarenerereeeeeres 


TEST DONE FLAG SETS AND BITO CLEARS ON END OF CONV. 


PETIT IT IIT ITI IIITEC III E CITI ITT iit tittle: 


 STEST 6 
TST6: 


SCOPE 
MOV 


#B1T9,RO 
AaSTREG ,MYTEMP 
MYTEMP 
MYTEMP,aSTREG 
#B1T7,$GDDAT 
RO 

1$ 
@STREG,MYTEMP 
#BIT15,MYTEMP 
MYTEMP ,aSTREG 
= EST 


@ADBUFF ,MYTEMP 
MYTEMP,RO 


;STALL TIME COUNTER 
;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 


:/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
sLOAD EXPECTED 

>STALL 

s TIME 


;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 


;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
;A/D DONE FLAG FAILED TO SET;BITO FAILED TO CLEAR 


;/READ DEVICE REG ADBUFF,PUT DATA IN MYTEMP. 
:/PUT CONVERTED VALUE IN RO. 


SRRRAAAARAAAAAARAAEETE EAA AERA AEE AAAEEEAAAAARAAAKARAA KARATE ARETE 


TEST A/D DONE FLAG CLEARS WHEN READ CONVERTED VALUE 


+ eRe Re eee eee eeeH RAH ER ARKK AKA Hee eAKeeeeeteeeteeeteeeeeeeeeeene 


 STEST 7 
TST?: 


SCOPE 
MOV 


MOV 
CLR 


#B1TO,MYTEMP 
MYTEMP ,aSTREG 
SGDDAT 


@STREG,MYTEMP 
MY TEMP 

1$ 

@ADBUFF ,MAYTEMP 


MYTEMP,RO 
‘wie 


;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 


;/READ DEVICE REG ADBUFF ,PUT DATA IN MYTEMP. 
;/PUT CONVERTED VALUE IN RO. 


;DONE FLAG FAILED TO CLEAR 
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TEST ERROR FLAG SETS IF 


E 14 
2ND CONVERSION ENDS BEFORE READING BUFFER 


TPR RASREEESESLELLALESELE LEAL EEE EERE EERE RRR RRR RAR ARR RRR A RRR R ASAD AS AS | 


“TEST 10 


TARARERAZASEALALESALASELALALEALESAS ESLER ERR RRA R RRR RRA RRR ASA ARRAS A 


TST10: 


;; SUBROUTINE FOR LOGIC TESIS;; 


TESTIT 


;* 
TEST: 


fs 
RETERR: RTS 


SCOPE 
MOV 


MOV 


MOV 


TEST ERROR FLAG SETS IF 


#10,STIMES 
#BITO,MYTEMP 


MYTEMP ,aSTREG 


aSTREG,MYTEMP 
.— 


;:D0 10 ITER 


;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 


;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 


2ND CONVERSION ENDS BEFORE READING BUFFER 


ATIONS 


$ 
#BITIS!BIT7,SGDDAT ;LOAD EXPECTED VALUE 


#BITO,MYTEMP 
MYTEMP ,aSTREG 
#B1T9,R0 


3$ 
Vie 


@ADBUFF AY TEMP 


MYTEMP,RO. 


PC 


SGDDAT ,@STREG 


@STREG,$BDDAT 
SGDDAT,$BDDAT 
RETERR 

#2, (SP) 

PC 


;/ Put ig Boe MYTEMP TO DEVICE REG STREG 


;WAIT FOR 
; CONVERSION 


;ERROR FLAG 


; CONVERT ENDS BEFORE READ BUFFER FROM FIRST 
;/READ DEVICE REG ADBUFF,PUT DATA IN MYTEMP. 


;/PUT CONVER 


;RETURN TO T 


;/ PUT DATA FROM $GDDAT TO DEVICE REG STREG 


;/READ DEVICE REG STREG,PUT DATA IN SBDDAT. 


:COMPARE RES 
: ;ERROR REIU 
;BUMP RETURN 


TO END 


NOT SET WHEN 2ND 


TED VALUE IN RO. 


EST SECTION 


* 
ADDRESS TO GET AROUND ERROR 


SEQ 0035 
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‘CRLPKC.P11 14-AUG-80 13:59 WRAPAROUND TEST SECTION SEQ 0034 | 
| 1524 . SBTTL WRAPAROUND TEST SECTION | 
| 1525 003444 WRAP: 
| 1526 | + RePReReReReeeReeeKeeeKeeeeeeeeeeeeeeeetetetereeeenetereneeeeere 
(3) s*JEST 11 TEST CH14 GROUND 
(3) + RERRERRERRARRETTHE REE TEAT TATA H TAHA eee Ke KATHE eeeeeterererereet 
(2) 003444 000240 TST11: NOP 
(1) 003446 012737 000010 001160 MOV #i0,STIMES :;00 10 ITERATIONS 
1527 003454 012737 000011 001102 MOV #STN-1,STSTNM 
1528 003462 012737 003476 001110 MOV #1$,SLPERR 
1529 003470 012737 003476 001106 MOV #1$,SLPADR 
1530 003476 004537 011060 1$: JSR RS,CONVRT :D0 8 CONVERSIONS 
1531 003502 000014 14 
1532 003504 004537 011302 JSR RS,COMPAR ; COMPARE RESULTS 
1533 003510 004000 4000 ; NOMINAL 
1534 003512 011714 v50 ; TOLERANCE 
1535 003514 104004 ERROR 4 sERROR-CH14 NOT GROUND-AD11K MUST BE IN SINGLE-ENDED 
1536 : CONF IGURATION,G5036 WRAPAROUND MODULE MUST BE PRESENT,CHECK CONNECTION A-VV,VV-A 
1537 + ReRERReRARERERERERERERERARARATAARAAHERAAAAEKEAREREReeA ee ee eK 
(3) s*TEST 12 TEST CONVERSION FROM EXT. START | 
(3) + RRReRReRRRRRERHH KEKE RERHe Te eAeeHeeeeeeeeKeeteeeneeeeeeeeeeeers | 
(2) 003516 000004 TST12: SCOPE 
(1) 003520 012737 000010 001160 MOV #10,STIMES :;D0 10 ITERATIONS | 
1538 003526 005737 001332 TST BASECH : TESTING AN AM? 
1539 003532 001044 BNE TST13 ::YES, GOTO NEXT TEST 
Fo 534 012737 000020 001426 MOV #BIT4,MYTEMP 
(1) ;* MOV MYTEMP,A@STREG ;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
HF 003552 012700 001000 MOV #BIT (R : TIME DELAY COUNTER 
1543 003556 012737 000220 001124 MOV #BIT7'BIT4,$GDDAT sLOAD EXPECTED 
‘eee 003564 012737 000200 001426 MOV #200 ,MYTEMP 
(1) ;* MOV MYTEMP,@ADBUFF ;/ PUT DATA FROM MYTEMP TO DEVICE REG ADBUFF 
1546 ;WRAPAROUND MODULE PRESENT 
1547 003602 005300 1$: DEC RO 
1548 003604 001376 BNE 1$ 
1549 003606 004737 003416 JSR PC,TEST 
saey 003612 104001 ERROR iy :FAILED TO DO CONVERSION FROM EXT. START 
(2) ;* MOV @ADBUFF MYTEMP ;/READ DEVICE REG ADBUFF,PUT DATA IN MYTEMP. 
(1) 003624 013700 001426 MOV MYTEMP,RO :/PUT CONVERTED VALUE IN RO. 
938 003630 005037 001426 CLR MYTEMP 
(2) : MOV MYTEMP,@STREG ;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
1553 + ee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeereeeeeeeteeeereneereerererers 
(3) :*TEST 13 TEST CHO GROUND 
(3) +s ReReeeeeeeeeereeereredeeeretreereeeeaeereneenenereeeeeeeerenees 
(2) 003644 000004 TST13: SCOPE 
(1) 003646 012737 000010 001160 V WiC, STIMES ::D0 10 ITERATIONS 
1554 003654 004537 011060 JSR RS,CONVRT :CONVERT 8 TIMES 
1555 003660 000000 
1556 003662 004537 011302 JSR RS, COMPAR ; COMPARE RESULTS 
1557 003666 004000 4000 ; NOMINAL 
1558 003670 011706 v1 ; TOLERANCE 
1559 003672 104004 ERROR 4 sERROR ON A/D CHANNEL 
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SF RRAARAAAAEKHHHAAAAATAAAAE AEA AA AAARAKHeAHAKAAAKAAKAKAA AAA TS 


TPR RRRAAAZEESLLLSELLSALALELAERE ALES ASAE RRR RRR RAR AAA RA RAR ARR RADAR ARS A 


;:;D0 10 ITERATIONS 


;CONVERT 8 TIMES 

; CHANNEL 1 

; COMPARE RESULTS 

; NOMINAL 

; TOLERANCE 

;ERROR ON A/D CHANNEL 


SS RERREEAERAAEAAEEEAEEAREREREEEA ARERR AHEEEERARAAERERAAAAATERA EES 


FERRARA AAATAEE TAA EAE AREA AAERAAAHAREKRAAKE REAR ES 


ITERATIONS 
;CONVERT 8 TIMES 


:CHANNEL 2 

; COMPARE RESULTS 

; NOMINAL 

; TOLERANCE 

sERROR ON A/D CHANNEL 


SEQ 0035 


;AD11K MUST BE SET UP FOR *OR- 5V OR *OR- 5.12V 


SERRA AAA AAA AEA AAA AAA AAA EAA AERAATAARARAAEAR AAA A EAA EES 


SRR TEA AEE AAA AAA AAAAAAAARAAKERAAAKAAAAAAA eA AAAS 


;;D0 10 ITERATIONS 


:CONVERT 8 TIMES 
sCHANNEL 3 

sCOMPARE RESULTS 

; NOMINAL 

: TOLERANCE 

sERROR ON A/D CHANNEL 


SP RRARRARERAAAAEAAATAAAAAAAAAAAAe eee KAeKAKAAAAAAAeAKAKAAAe AAAS 


SS RRARAARAAAAAAAAAAAAAAA AAA AATe Kee eKAKeKeReeeeeeeAKeKeeAAeeeAeees 


306(1063) 
T14 TEST CH1 GROUND 
“eTEST 14 TEST CH1 GROUND 
TST14: SCOPE 
MOV #10, STIMES 
SR RS, CONVRT 
JSR RS, COMPAR 
4000 
v10 
ERROR 4 
TEST 15 TEST CH2 +1 VOLT - 
TST15: SCOPE 
MOV #10,$STIMES ::D0 10 
JSR RS, CONVRT 
JSR RS, COMPAR 
4632 : 
v50. 
ERROR 4 
“*TEST 16 TEST CH3 #2.5 VOLTS 
TST16: SCOPE 
MOV #10, $TIMES 
JSR RS, CONVRT 
JSR RS, COMPAR 
6000 
v240 
ERROR 4 
“*TEST 17 TEST CH4 -2.5 VOLTS 
1ST17: SCOPE 


MOV #10, STIMES 
JSR R5,CONVRT 


4 

JSR RS ,COMPAR 
2000 

v240 

ERROR 4 


—— eee ee eee 


;:D0 10 ITERATIONS 


sCONVERT 8 TIMES 
sCHANNEL 4 
;COMPARE RESULTS 
;NOMINAL 

; TOLERANCE 


— ee + 


me ee —— 
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1594 

(3) 

(3) 

(2) 004034 000004 

(1) 004036 012737 000001 
1595 004044 005037 001426 
bi 
1597 004060 004737 004654 
1598 004064 004537 011060 
1599 004070 000012 
1600 004072 013704 001346 
1601 004076 004537 011502 
1602 004102 002376 
1603 004104 011720 
1604 004106 104004 
1605 004110 005037 001420 
1606 004114 012702 000001 
1607 004120 010237 001426 
bi 
1609 004134 004737 004654 
1610 004140 004537 011060 
1611 004144 000012 
1612 004146 005737 001420 
1613 004152 001010 
1614 004154 0235727 001546 
1615 004162 0024 
1616 004164 005257 001420 
1617 004170 0102357 001414 
1618 004174 020227 000200 
1619 004200 001003 
1620 004202 0157357 001546 
1621 004210 013703 001546 
1622 004214 160437 001546 
1625 004220 010304 
1624 004222 537 011302 
1625 004226 
1626 004230 011724 
1627 004232 104 
1628 004234 00520 
1629 sgt 020227 000400 
1630 004242 00132 
1631 004244 004757 020224 
1636 004250 052777 000100 
163 sng te 004737 004654 
1634 004262 0045357 011060 
1635 004266 00001 
1636 004270 004557 0113502 
1637 004274 
1638 004276 011710 
1639 004 104004 
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TEST VERNIER OFFSET DAC ON CH12 


: seeeeeeeereeeeeeee< -* PE RR RARARAAAAAAABRRABRARRRRRRR RRR RRR RR RA RRS 
“@TEST 20 TEST VERNIER OFFSET DAC ON CH12 
SRAAAAAAAAAAAAEAAAAAE AAA AAAE AEA AAAAAAAAAARAAAAAAAAAAAERAAAAE AEN 
T$T20: SCOPE 
MOV #1, STIMES ::D0 1 ITERATION 
CLR mY TEMP 
+t MOV MYTEMP ,@ADBUFF ;/ PUT DATA FROM MYTEMP TO DEVICE REG ADBUFF 
JSR PC DAWALT :DELAY FOR DAC SETTLING 
Isr RS, CONVRT “CONV. CH12, DIRECT VERNIER DAC 
MOV TEMP, RG :SAVE VALUE IN R4 
JSR RS, COMPAR “COMPARE RESULTS 
2376 “WITH =1.875 VOLTS 
v115 “TOLERANCE OF 10% - 
ERROR 4 
CLR i 
MOV #1,R2 = 
1$: MOV R2.MYTEMP »SET UP NEXT VERNIER DAC VALUE 
st MOV MYTEMP.@ADBUFF :/ PUT DATA FROM MYTEMP TO DEVICE REG ADBUF 
JSR PC ,DAWAIT “DELAY FOR DAC SETTLING , 
Isr RS. CONVRT “CONVERT IT 
TST MAX 
BNE 2$ 
CMP TEMP , #4000 
BLT 2$ 
INC MAX 
MOV R2,MIN 
23: CMP R2,#200 
BNE 
MOV TEMP ,4$ 
3$: MOV TEMP.R3 :SAVE VALUE 
SUB R4, TEMP “TEMP=DIFF. BETWEEN VALUESPREVIOUS 
MOV R3,R4 “SET UP PREVIOUS VALUE FOR NEXT TIME THRU 
JSR R5. COMPAR “COMPARE RESULTS 
6. “WITH 15 MILLIVOLTS(1 DAC LSB) 
ERROR 4 
INC R2 
CMP R2,#400 : DONE? 
BNE 1$ "NO=DO NEXT VERNIER DAC VALUE 
JSR PC, SRESET | 
BIS #100, a$TKS 
JSR PC DAWAIT :LET DAC SETTLE 
ISR R5.CONVRT “CONVERT IT 
JSR RS, COMPAR : COMPARE RESULTS 
4$: 0 
2 
ERROR 4 
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TEST CH13 #2.5 VOLTS 


SRR AAEAEEEAAEA EAE AE AAEAEAAERERAAAARAAAAAAAAEAAARKEE TES 


 STEST 21 TEST CH13 #2.5 VOLTS 
“REAR AAAEARAERAAAEAAATAEAEATAREEARAATAERAARAARAAAARAAARAAAARARAAARARAAARERAEEEEE 
téT21: SCOPE 
MOV #10, STIMES +:D0 10 ITERATIONS 
ISR RS, CONVRT “CONVERT 8 TIMES 
JSR RS, COMPAR : COMPARE RESULTS 
6000 *NOMINA 
V144 ‘TOLERANCE 
ERROR 4 
; SRR AAEAEEEEAAE AERA REE EAEAAEEEEAAAARERAAAAAAAAAAEEEAEEE ES 
;#TEST 22 TEST CH17 +4V 
SRRRRRARARAARAAAAEAEAEAA TARA AAA AEA AERA AAAAARAAAARAAARERAEAAAAEE ES 
+8122: SCOPE 
MOV #10, $TIMES +:D0 10 ITERATIONS 
JSR RS, CONVRT :CONVERT 8 TIMES 
17 “CHANNEL 17 
JSR RS, COMPAR *COMPARE RESULTS 
7146 NOMINAL 
v240 : TOLERANCE 
ERROR 4 “ERROR ON A/D CHANNEL 
eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeneeneeeeenereeeneeeeneene 
:*TEST 23 OFFSET ON CHO 
SRRAAAAAAAAAAAEAEAAAAAAARAAAAAAAAAAAAAARERAAAAAARARERAAAEAA ARAN AS 
18123: SCOPE 
MOV #1 STIMES ::D0 1 ITERATION 
MOV BASECH, CHANL “LOAD CHANNEL 
MOV BASECH, DUMMY “LOAD DUMMY 
MOV #4001, EDGE 
JSR RS, SARSUB 
MOV DAC, TEMP 
ISR RS, SARSUB 
ADD DAC, TEMP 
SUB #62, TEMP 
MOV MIN,RO 
ASL 
SUB RO, TEMP 
i. ae FSE sTYPE ASCIZ STRING 
V TEMP ,R2 
JSR PC ,DECTYP 
TYPE  ,MLSB :TYPE ASCIZ STRING 
JSR RS, COMPAR "1S RESULT WITHIN LIMITS? 
v50D 
BR OFFERR :NO-ERROR 
BR OF F OK : YES-OK 
OFFERR: TYPE ERMSG 
R TST24 ::G0 TO NEXT TEST 
OFFOK: TYPE  ,OKMSG 
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NOISE TEST ON 8 EDGES 


SRR AAAAAREHEEAAHE EAA REA EREAAAAAAEAAAAAAAEAEEAEAAEEER EES 


“TEST 26 NOISE TEST ON 8 EDGES 
tin SE eke comedind | avéae i OR” ae 


SCOPE 5 
MOV #1, STIMES ::D0 1 ITERATION : 
MOV #i16,TEMP :DAC VALUE 

5 .N “NOISE AT =FULL SCALE 


JSR R5,NOI8 
;NOISE AT MID-RANGE 


- R5,NOI8 
JSR R5,NOI8 sNOISE AT +FULL SCALE 


FERRARA AAA AAAAAEEAAAAA AEA AA EETARAAAEARAARAAAAAAAAERAEAAAAA ANTES 


s*TEST 25 


SETTLE TEST ON 8 EDGES 
METITITIL TILIA ILL LiL 
SCOPE spe 
MOV #1 ,STIMES ;;D0 1 ITERATION ? 
tt R5,SETS ;SETTLE-POSITIVE DIRECTION 
16 


MOV #116, TEMP 


JSR R5,SET8 ;SETTLE-NEGATIVE DIRECTION 


RRA AAAAAAAAAEAAAATAAAEAAEAAAAAAAAAAAAARAAAAAAAAAAAARAAAEAAREEE 


“TEST 26 


DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST 


RRR AAAAAEEAEAAAEAAEAAEATAAAAAAARAARAARAAAAAAAAAEAAAAAEAEARAAAAAAEE 


TST26: SCOPE 
MOV #1, STIMES ::D0 1 ITERATION 
TST SPASS :FIRST TIME-SKIP DIFLIN 
BEQ LEND 
JSR PC,DIFLIN 
LEND: RTS PC :RETURN TO TEST SECTION 
DAWAIT: CLR RO 
1$: DECB~—Ss«éRO 
E 1$ 


SEQ 0038 


we me eee eC Oe —_— —_— ———-. -— ——- ——— 
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1710: .SBTTL CALIBRATION TEST 
1711 004664 012737 004664 001364 BEGINC: MOV #BEGINC, TADDR : TEST ADDRESS IN TADDR 
Wie 004672 005037 001426 » Cf MY TEMP 
(2) ;* MOV MYTEMP,@STREG ;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
1713 004706 104 013615 TYPE HEADS TYPE OUT HEADING 
1714 004712 005037 177776 CLR PS 
1715 004716 017700 174216 1$: MOV :READ CHANNEL FROM SWITCH REG. 
1716 004722 042700 177700 BIC ere RO : ISOLATE MUX BITS 
1717 004726 032777 020000 174204 BIT #BIT13,aSWR “1$ BIT 13 SET? 
1718 004734 001005 ¢ BNE 2$ ::YES,SKIP TYPEOUT 
1719 004736 104401 012321 TYPE ,CH 
1720 010046 MOV RO,-(SP) :;SAVE RO FOR TYPEOUT 
(1) >; TYPE CHANNEL 
(1) 004744 104403 TYPOS ;3G0 TYPE=-OCTAL ASCII 
(1) 004746 002 .BYTE 2 -: TYPE 2 DIGIT(S) 
(1) 004747 000 .BYTE 0 >: SUPPRESS LEADING ZEROS 
1721 004750 2s: 
1722 004750 000300 SWAB Ea »SWITCH BYTES 
723 004752 010037 001426 MOV RO. MYTEMP 
(2) :* MOV MYTEMP,@STREG ;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
1724 004766 012702 000010 MOV #10,R2 :TYPEOUT COUNTER 
1725 004772 3$ 
(33 
(2) ;* MOV QSTREG.MYTEMP ;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 
(1) 005002 005237 001426 INC MY TEMP 
(2) MOV MYTEMP.@STREG ;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
1726 005016 30$ 
(2) :* MOV @STREG.MYTEMP ;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 
(1) 005026 105737 001426 TSTB. 4s MY TEMP 
1728 005032 100371 BPL 30$ 
(2) :* MOV @ADBUFF ,MYTEMP :/READ DEVICE REG ADBUFF.PUT DATA IN MYTEMP. 
(1) 005044 013700 001426 MOV MYTEMP,RO :/PUT CONVERTED VALUE IN RO. 
1730 005050 032777 020000 174062 BIT #B1T13,aSWR :1S BIT 13 SET? 
1731 005056 009403 BEQ 4$ “NOT SET, TYPE OUT LIST 
1732 005 010077 174056 MOV RO, @DISPLAY *PUT VALUE iN DISPLAY FOR DISPLAY CONTRO 
1733 005064 000714 BR 1$ :REPEAT CONVERSION 
1734 005066 104401 012324 4$: TYPE  ,SPACE 
1735 005072 010046 MOV RO,-(SP) :;SAVE RO FOR TYPEOUT 
(1) i PRINT OCTAL CONVERTED VALUE 
(1) 005074 104403 TYPOS :G0 TYPE--OCTAL ASCII 
(1) 00507 004 .BYTE 4 >: TYPE 4 DIGIT(S) 
(1) 00507 1 ‘BYTE 1 = TYPE LEADING ZEROS 
1736 005100 012701 010000 MOV #10000,R1 
1737 005104 005301 S$: DEC R1 
1738 005106 137 BNE 5$ 
1739 005110 005 DEC R2 :DECREMENT THE COUNTER 
1740 005112 0013 BNE 3$ "NO CARRIAGE RETURN 
1741 005114 104401 001171 TYPE SCRLF “CARRIAGE RETURN 
1742 005120 000676 BR i$ “REPEAT CONVERSION 
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LOGIC TEST SECTION 


.SBTTL LOGIC TEST SECTION 
BEGL: V #BEGL, TADDR 
JSR PC, TESTAD 
1$: JSR PC .BEGINL 
JSR PC .BUMPAD 
MOV #1$,AGTST 
JMP SEOP 
.SBTTL AUTO TEST 
BEGINA: MOV #BEGINA, TADDR 
CLR SPASS 
JSR PC, TESTAD 
1$: JSR PC .BEGINL 
TYPE §,MEND 
MOV STREG,-(SP) 
TYPOS 
.BYTE 6 
“BYTE 1 
TYPE  ,$CRLF 
JSR PC WRAP 
JSR PC ,BUMPAD 
BR 1$ 
MOV #1$,AGTST 
JMP SEOP 
.SBTTL WRAPAROUND TEST 


BEGINW: oy 


1$: 


#BEGINW, TADDR 
PASS 

JSR PC,TESTAD 

JSR PC ,WRAP 

JSR lepsirtics 


MOV #1$,AGTST 
SEOP 


; TEST ADDRESS 
;NO OF ADDITIONAL AD'S 
OGIC TESTS 


; TYPE END OF PASS 


; TEST ADDRESS 
CLEAR PASS COUNTER 
;NO. OF AD'S TO BE TESTED 
;LOGIC TESTS 
:TYPE END OF LOGIC TEST 
;SAVE STREG FOR TYPEOUT 
; TYPE OCTAL NUMBER 


; 6 DIGITS 
; TYPE LEADING ZEROS 
A CR,LF 


sTEST NEXT A/D 

37 NEXT AD 
;ADDRESS FOR EOP 
; TYPE END OF PASS 


mn 
wm” 
~ 


;TEST ADDRESS 
: CLEAR PASS COUNT 

OF AD*S TO BE TESTED 
: URAPAROUND TESTS 
:MORE A/D'S TO BE TESTED? 
;YES-GO TEST NEXT AD11K 


; INCREMENTS S$PASS 


SEQ 0040 


a 
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1780 DETERMINE IF MORE AD11K’S TO BE TESTED 

1781 005310 005737 001354 BUMPAD: TST NBEXT sADDITIONAL AD'S? 

1782 005314 001421 BEQ FIXADR “NO-INITIALIZE ADDRESSES 
178 005316 063737 001326 001316 ADD VADR, STREG “SET UP NEW ST. REG. 
1784 005 3 063737 Oo 1ase 001320 ADD VADR , ADBUF F :SET UP NEW BUFFER ADDRESS 
1785 005332 063737 001330 001454 ADD VVCT, VECTOR “SET UP NEW VECTOR 
1786 005340 063737 001330 001324 ADD VVCT.VECTRI 

1787 005346 005077 173752 CLR avectri 

1788 005352 005337 001354 DEC NBEXT :ONE LESS AD11K 

1789 005356 000441 BR BYPASS 

1790 005360 062716 000002 FIXADR: ADD #2, (SP) 

1791 005364 013737 001250 001316 FIXONE: MOV SBASE,STREG sRELOAD INITIAL ADDRESSES 
1792 005372 013737 001250 001320 MOV SBASE , ADBUFF 

1793 005400 062737 000002 001320 ADD #2, ADBUF F 

179% 005406 013737 001244 001454 MOV SVECT1, VECTOR 

1795 005414 042737 170000 001454 BIC #170000, VECTOR 

1796 005422 113737 001245 001322 MOVB $VECT1+1,BASEBR 

1797 005430 105037 001323 CLRB  —s- BASEBR+1 -CLEAR HIGH BYTE 

1798 005434 013737 001454 001324 MOV VECTOR, VECTR1 

1799 005442 062737 000002 001324 ADD #2, VECTRI 

1800 005450 005077 173650 CLR aveCcTRi 

1801 005454 013737 001356 001354 MOV NMBEXT,NBEXT :RESET COUNTER 

1802 >;LOAD .+2 AND HALT TRAP CATCH;; 

1803 005462 012700 000216 BYPASS: MOV #216,R0 sFILL .+2 

1804 005466 012701 000214 MOV #214.,R1 “LOAD HALT 

1805 005472 020137 001334 1$: CMP R1, KBVECT 

1806 005476 001410 BEQ 2$ 

1807 005500 010021 MOV RO,(R1)+ 

1808 005502 005021 CLR (R{)+ 

1809 005504 010100 MOV R1,RO 

1810 005506 005720 TST (RO) + 

1811 005510 020027 001002 CMP RO, #1002 

1812 005514 001366 BNE 1$ 

1813 005516 000207 RTS PC -TEST NEXT A/D 

1814 005520 022021 2$: CMP (RO)+,(R1)+ 

1815 005522 022021 CMP (RO) +, (R1)¢ 

1816 005524 000762 BR 1$ 

1817 

1818 

1819 : NOISE TEST, 1 EDGE 

1820 005526 012737 005526 001364 BEGINN: MOV #BEGINN, TADDR sTEST ADDRESS IN TADDR 
1821 005534 104401 012130 TYPE ,NOIMSG “ASK FOR CHANNEL 

1822 005540 104401 013634 TYPE ,ASKCH 

1823 005544 017737 173370 001350 18: MOV aswR.CH1 :LOAD CHANNEL 

1824 005552 042737 177700 001350 BIC #177700,CH1 

1825 005560 012737 000200 001346 MOV #200, TEMP :LOAD DAC VALUE 

1826 005566 0045 010366 JSR RS,NOITST -GO TO NOISE SUBROUTINE 
1827 005572 001350 CH1 

1828 005574 000 BR 1$ 
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104403 
004 


‘LPA-AD11K TEST MD-11-CRLPKC 
14-AUG-80 13:59 


006046 
006046 


000001 
005704 


011472 
012331 
001352 
013726 


001350 


012366 


000-00 


011060 
001346 


011734 
012476 


MACY11 PON TUT? 


001364 


001346 
001362 


006436 


006012 
006012 
001426 


BK3: 


POSR2: 


TYPSET: 


1$: 


— a — oe —_——— 


—s w ae 
24-OCT-80 09:48 PAGE 23 
RAPAROUND TES? 


INTERCHANNEL SETTLING TEST, 
BEGINS: MOV #BEGINS, TADDR 


, SETMSG 
(SP)+,CH1 
» TOMSG 


(SP)+,CH2 
#200, TEMP 
CH2, CHANL 
PC ,GETEDG 
R2 


R2,R4 
#1,EDGFLG 
PC, TYPSET 
BK 

PC ,DECTYP 


»LSB 

CH2,-(SP) 

M4 

0 

,MAT 

PC, TYPEDG 
TCH 


CH1,-(SP) 


2 

0 

,ATISG 
BASECH, 1$ 
#200, MY TEMP 
MY TEMP, @ADBUF F 
RS, CONVRT 
TEMP, -(SP) 
4 

1 

R4,VSET 

ERR 

“OKMSG 

Pc 


SEQ 0042 


1 EDGE 
;TEST ADDRESS IN TADDR 
;ASK FOR CHANNELS 


;LOAD DAC 
;GET EDGE VALUES 


;SCALING = .02 LSB 
;MAKE IT .01 LSB 


7; SAVE on FOR TYPEOUT 


sa Ty 

;;GO0 TYPE--OCTAL ASCII 
TYPE 2 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 
;TYPE ASCIZ STRING 


;;SAVE CH1 FOR TYPEOUT 
;; TYPE CH 

;;GO0 TYPE--OCTAL ASCII 
3 TYPE 2 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 


;/ PUT DATA FROM MYTEMP TO DEVICE REG ADBUFF 


;;SAVE TEMP FOR TYPEOUT 
;; TYPE VALUE 

;3:GO TYPE--OCTAL ASCII 
;; TYPE 4 DIGIT(S) 

:; TYPE LEADING ZEROS 


=" 


_——~ ee eee eee 


oes 
' 


“ere 


, a — as —— — — oe _—— -- 


L 
C 


SESSSESssssssese 


$83$SE83839 


: 


Sse 


_ — 2 me ee a ee ae et = oe = ow) od 3 ws 2) oS 8 = 3 2 = — 


— —) — —) ss 
~DOooono-~-~000=-~C00 
— A) at ot ot =o 2 APY Ot ot ot = 
~Oooonouvyrw &Uunvy~- 


RLPKC.P11 


006040 
006044 


104401 
000207 


013737 
4537 


000205 


LPA-ADI1K TEST MD-11-CRLPKC 
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012507 


001352 
006440 


001404 
001350 
006440 


001404 


000010 
005704 


ee COS 


MACY11 


001360 


001360 


001410 


006436 


| Gea 
306(1063) 24-OCT-80 09:48 PAGE 24 


ERR: 


SETS: 


SETAA: 


R2POS: 


WRAPAROUND TES* 


TYPE ,ERMSG 
RTS PC 


-: SUBROUTINE FOR SETTLING TESTS;; 
TIA: MOV CH2 ,DUMMY 


0 ’ 

+4 RS, SARSUB 
ADD DAC ,R2 
MOV CH1, DUMMY 
gar R5,SARSUB 
SUB DAC ,R2 

RTS PC 
MOV (R5)+,CH1 
MOV (R5)+,CH2 
ADD BASECH,CH1 
ADD BASECH,CH2 
JSR PC,GETEDG 
CLR R2 

MOV #10,R3 
JSR PC,SETIA 
INC EDGE 

DEC 

BNE SETAA 

SUB #10,EDGE 
TST R2 
BPL R2POS 
NEG R2 
MOV R2,R4 
MOV #8. ,EDGFLG 
JSR PC, TYPSET 
RTS R5 


; SUBROUTINE TO GET EDGE VALUE 
sCALL=JSR  PC,GET 
;CONVERSIONS ON A/D CHANNEL ‘CHANL" 
;RESULT IN EDGE, USES RO 
GETEDG: 


MOV TEMP , @ADBUF F 


MOVB - CHANL,, RO 

SWAB ss RO 

MOV RO, MYTEMP 

MOV MYTEMP aSTREG 
MOV #100,R0 

DEC 

BNE 1$ 

CLR EDGE 

MOV #10,R0 


ee rr ee we ee ee ee 


SEQ 0043 


;LOAD DUMMY 
;D0 SAR ROUTINE AT 50% 


;ADD RESULT TO R2 
;CHANGE DUMMY VALUE 
;D0 SAR ROUTINE AT 50% 


;SUBTRACT RESULT FROM R2 
;RETURN 


;GET FIRST CHANNEL 
;GET SECOND CHANNEL 


:GET EDGE VALUES 
-SET UP COUNTER ~ 
-GET SETTLE VALUES 


;REPEAT 8 TIMES 


: TYPE OUT RESULTS 
;RETURN 


;/ PUT DATA FROM TEMP TO DEVICE REG ADBUFF 
;GET CHANNEL 
;SET UP A.D STATUS REG. 


;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
;DAC SETTLING DELAY 


rc 


ore 


——— er weer ee 


i 
| 
; 
| 
i 


~— 
| 


LPA-ADI1K TEST MD-11-CRLPKC 


—> 


— — 
DOR -— ODOR RK Qrnrnne 


—_ —)d 2 3 
— i — 


aed ed aed aed dd 


ee Se ae 
So A 


rwe oa a 
OoOwOww ww 


—_— —2» 


‘CRLPKC.P11 


006276 


006312 


006322 
006326 


005237 


105737 
100371 


063737 


000207 


013703 
010346 


104403 
4 


010346 
104403 
004 


001 
000207 
000000 


14-AUG-80 13:59 


001426 


001426 


0064 36 


000007 
013676 


} F 4 
MACY11 306(1063) 24-OCT-80 09:48 PAGE 24-1 
WRAPAROUND TEST 


001410 


000001 


;* MOV @STREG,MYTEMP ;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 
INC MYTEMP 
ins MOV MYTEMP,aSTREG ;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
;* MOV @STREG.MYTEMP ;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 
TSTB MY TEMP 
BPL 
-* MOV @ADBUFF ,MYTEMP ;/READ DEVICE REG ADBUFF,PUT DATA IN MYTEMP. 
ADD MYTEMP,EDGE 
DEC RO 
BNE CONV 
ASR EDGE 
ASR EDGE 
ASR EDGE 
ADC EDGE 
RTS PC 
>; SUBROUTINE TO TYPE EDGE VALUES;; 
TYPEDG: MOV DGE ,R3 
MOV R3,-(SP) :;SAVE R3 FOR TYPEOUT 
:; TYPE OCTAL VALUE OF EDGE 
TYPOS ;;GO TYPE--OCTAL ASCII 
BYTE 4 :; TYPE 4 DIGIT(S) 
BYTE 1 >: TYPE LEADING ZEROS 
CMP EDGFLG,#1 
BEQ RET 
ADD #7,R3 
TYPE a ;TYPE ASCIZ STRING 
MOV R3,-(SP) >: SAVE R3 FOR TYPEOUT 
;; TYPE EDGE VALUE 
TYPOS 3;G0 TYPE--OCTAL ASCII 
BYTE 4 :: TYPE 4 DIGIT(S) 
BYTE 1 >: TYPE LEADING ZEROS 
RET: RTS PC 
EDGFLG: 0 


SEQ 0044 


-—-----—- 


eet ote TEST MD-11-CRLPKC 


CRLPK 


— ee eee ee 


012537 


063737 


012737 


em mn ee ee e+ - 
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001422 


004000 


003100 


020542 
001412 
000100 
001406 
006734 
001362 
000001 
001430 
000006 
000377 
001432 
000006 
000377 


172546 


001422 
001412 


7 001412 


« 


MACY11 306(1063) 
WRAPAROUND TES‘ 


006734 
172450 


006734 


001412 


001404 


001406 


001433 


001430 
172614 


001410 


001404 


4 
24-0(T-80 ~ 48 PAGE 25 


; SUBROUTINE TO DO SUCCESSIVE APPROXIMATION ROUTINE 
: CAL RS,SA Bsus 


L=JSR 


XXX; XXX=PERCENT 


RESULT RETURNED IN ae 
SARSUB : ,PERCNT 


NXTCVT: 


STOMP: 
10$: 


208: 


2$: 


SHIFT: 


CNNO: 


. WORD 


SAR1 
#1600. ,CNNO 


PERCNT 


PERCNT 
#200,BITPNT 
DAC 
R5,$PUTS 


STREG 
0 


R 
BITPNT ,DAC 


DAC, @ADBUF F 
#100, DELAY 


DELAY 
1$ 


CNNO,R1 

CHANL, STEMP2+1 
#1 ,STEMP2 
DUMMY , — 


#1, STEMP 


STEMP1,@KMADG 
#6, aKMAD2 
#377 ,aKMAD2 
10$ 

STEMP2, aKMAD4 
#6, aKMAD2 
#377 ,aKMAD2 


a 


NXTCVT 


RO,PERCNT 
SHIFT 
pe Gee 


BITPNT 
TRY 
R5 


0 


RO,R1,R4 


;GET PERCENT 

;NO OF SAMPLES FOR SHORT PASS. 
;USER WANT SHORT PASS? 

;ALWAYS USE SHORT SAMPLE COUNT. 
;RESCALE PERCENT FOR 1600. 
;POINTS PER BURST 


sINITIALIZE BIT POINTER AT MSB 
; INITIALIZE DAC VALUE 


;TRY BIT 


;/ PUT DATA FROM DAC TO DEVICE REG ADBUFF 


;STALL TIME 


;SET UP FOR 1600. OR 400. CONVERSIONS 


;COUNT RESULTS .LT. EDGE 


; TAKE THE BIT OUT 


SEQ 0045 


ee —— 


LPA-AD11K TEST Ret we gt 
Pil 13:59 


‘CRLPKC.P 


14-AUG-80 


sa ee 


=SSSS=2Ss5 
BLSAalLSS 


5 


0 
Spent 


013122 


0216 
0003 


001344 


000011 
001332 


020542 
001426 


001430 


177760 


001430 
000006 
000377 
172256 


007777 


042300 
077777 
007777 


001346 


ee 


MACY11 306(1063) 


001430 
172344 


042300 


24-0(T-80 48 PAGE 26 
WRAPAROUND TES? 


>: DIFF ERENTIAL LINEARITY SUBROUTINE;; 
DIFLIN: TYPE ,MS620 
CLR OuT 
MOV #BUFFER,RO 
MOV #4096. ,R1 -4096 WORDS FOR HISTOGRAM 
CLEAR1: CLR (RO) + “CLEAR BUFFER AREA 
DEC R1 
BNE CLEAR1 
MOV #01ST,RO :DISTRIBUTION BUFFER POINTER 
MOV #200., "200. WORDS FOR DISTRIBUTION 
CLR R3 
CLR OUT 
CLR WIDE 
CLR NARROW 
CLR FIRST 
CLR SKIPST 
CLEAR2: CLR (RO) “CLEAR DISTRIBUTION BUFFER AREA 
BNE CLEAR2 
CHANNL: MOV #11,R0 *CHANNEL 11 
ADD BASECH,RO 
SWAB RO sLOAD MUX BITS 
JSR RS, $PUTS 
.WORD STREG 
MOV RO, MYTEMP . 
;* MOV MYTEMP.aSTREG :/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
MOV RO, $TEMP1 
BIS #1. STEMP1 
MOV #800. ,RO :NOMINAL STATE WIDTH - 1 LSB 
MOV #RETURN, VECTOR 
AGAIN: MOV #4094. ,R1 
NEXT: JSR PC. C RANDY :GET RANDOM NUMBER 
BIC mn7#760, R2 -MASK IT TO 4 BITS ONLY 
BEQ CONVR 
DELAY3: DEC R2 STALL 
BNE DELAYS : TIME 
CONVR: 
$TBF4: MOV STEMP1, aKMAD4 
MOVB #6, aKMAD2 
31$: CMPB  #377,aKMAD2 
BNE 31$ 
MOV AKMAD4 ,R2 
BEQ DELAY! : IGNORE IF =0 
CMP R2,#7777 “IGNORE IF =7777 
BEQ DELAY 
ASL R2 
INC BUF FER(R2) -MAKE HISTOGRAM 
BPL OKAY 
MOV #077777 .BUFFER(R2) -PREVENT OVERFLOW 
DELAY1: CMP R2,#7777 sEQUALIZE LOOP TIME 
BEQ DELAY2 “WITH DUMMY INSTR. 
DELAY2: INC 1 


R 
INC TEMP(R5) 


mm em ee eee aw eee 


SEQ 0046 


r — ee eee ee ee eee oe -_— ee = oe 


LPA-AD11K TEST MD-11-CRLPKC 


CRLPKC.P11 14-AUG-80 13:59 

2048 007232 100403 

2049 007234 005301 
50~°007236 001326 

2051 Loe 000403 

2052 007242 005037 001546 

2053 007246 000772 

2054 007250 005300 

$022 007252 001516 

2057 007254 0127 007776 


12700 
2058 007260 012701 042302 


| 
2060 007266 006202 
2061 007270 006202 
2062 007272 006202 
20635 007274 005502 
2064 007276 020227 000310 
2065 007302 002403 
2066 007304 005237 001424 
2067 007310 000423 
2068 007312 006302 
2069 007314 005262 021622 
2070 007320 006202 
2071 007322 pease 000062 


2073 907330 005237 001340 
1 
2076 007340 005237 001344 
000405 
2078 007346 bsg 000226 


007354 005237 001336 
00 005737 001342 


00 5237 001342 
007372 104401 012501 


162703 042502 
006203 


i 


I 
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014564 


WRAPAROUND TES* SEQ 0047 


| BM] NOTOK 
OKAY: DEC Ri 
BNE NEXT 
BR AROUND 
NOTOK: CLR TEMP 
R OKAY 


B 
AROUND: 43 seat ame 
;DATA — a Wy NOW BEEN COMPLETED = WORK ON THE DATA COLLECTED 


f 
MOV #BUFFER+2,R1 
»R2 


READ: MOV (R1)+ ;GET STATE WIDTH 


ASR R2 ;1 LSB = 800 

ASR R2 

ASR R2 

ADC R2 :7 = 100. 

CMP R2,#200 ‘out OF RANGE? 

BLT INRNGE 

INC OUT :YES - INCREMENT COUNTER 
BR a 


INRNGE: ASL 
] sMAKE STATE WIDTH DISTRIBUTION 


;1S IT 1/2 LSB? 


TST R :1S IT A SKIPPED STATE? 
BNE 31$ 
INC SKIPST 
31$: BR TYPBAD 
NOTNAR: CMP R2,#150. :1S IT 1.5 LSB? 
BLE LAST 
INC WIDE 
TYPBAD: TST FIRST 
BNE 60$ 
INC FIRST 
TYPE STATE 
60$: MOV R1,R5 
SUB #BUFFER+2,R3 
ASR i 
MOV R3,-(SP) 7; SAVE F. FOR TYPEOUT 
s; TYPE STATE 
TYPOS +360 TYPE--OCTAL ASCII 
BYTE 4 ;TYPE 4 DIGIT(S) 
BYTE 1 :: TYPE LEADING ZEROS 
TYPE DASH 
JSR PC ,.DECTYP 
TYPE ,»LSBMSG 
LAST: DEC 


NE READ 
MOVB #177 ,DECPNT 
MOV SKIPST,R2 
JSR PC ,DECTYP 
TYPE , S9KPMSG 
TST as 


yp at OF SKIPPED STATES 
; TYPE MESSAGE 


EEE EL 


vo ol 


.—--- 


PKC 


WWI PRIMI NO NPINI PON NYDD 2 2 9 PO OS MM HS COO OOCOOOO 


cc ec cc ec cc ee et ee ee ae ed ad ad at a 


POPS PO POPE POPOPOPO NO POPU NO POPYPY NPI NPOPI PO NINPIPINPINPIPINPIPINPINIMININNINMNMNNNMNRNMNNNMNN 
ee ee ed eh ed ed ed ed 
’ oP oe ae ee eet eh” bh haha 


LPAAD11 


P'1 


—_—_- — ee eee 


K TEST 
1 


104401 


MD-11-CRLPKC 
14-AUG-80 13:59 


012507 
012476 


001424 
012507 
012476 


001424 
011472 


000051 
012507 


012476 
001400 


010330 


000310 
011370 
011370 


013700 
010350 


rr eee me eee 


—_ 


014564 


— cee ae ee ee Se 


1$: 
NAR: 


11$: 
HALF : 


21$: 
SWDIST: 


NXTY1: 


LERMSG 
NAR 
,OKMSG 
NARROW, R2 
PC ,DECTYP 
.NARMSG 
WIDE ,R2 
OUT,R2 

PC ,DECTYP 
,WIDMSG 
OUT,R2 

PC ,DECTYP 
“OUTMSG _ 
OUT 


11$ 
“ERMSG 
HALF 
OKMSG 
NARROW, R2 
WIDE ,R2 


R2,R 
PC ,DECTYP 


#56 ,DECPNT 


RELACC 
PC,,DELCLR 
MSG16 


PC ,LOADY 
R2 

PC ,LOADY 
R1 

NXTY1 

C2 
PC,DELCLR 


4 ae we 
MACY11 30G(1063) 24-OCT-80 09:48 PAGE 26-2 
WRAPAROUND TES? 


SEQ 0048 
; TYPE *‘ERROR"’ 


; TYPE #0K# 
:GET NO. OF NARROW STATES 
-TYPE IT 


: TYPE MESSAGE 
-TYPE NO. OF WIDE STATES 
-TYPE MESSAGE 
:TYPE NO. OF STATES OUTSIDE 2 LSB 
: TYPE MESSAGE 
; TYPE ‘‘ERROR"’ 
: TYPE ao # 


;TYPE NO. OF STATES OUTSIDE LIMITS 


;COMPARE IT TO NOMINAL 
;TYPE “‘ERROR™’ 


:TYPE ‘‘OK’’ 
:vT55? 


;WAIT AWHILE, THEN CLEAR VT55 
;TYPE BUFF 1-PRINT GRID 


;POINTER TO STATE WIDTH DISTRIBUTION 
:GO 200. TIMES UP TO 2 LSB 


;TYPE ASCIZ STRING 


mm ms —— - -_— = -— =e -- = - — —— ee eee ee + _—— —- 


| a a 
Leman TEST MD-11-CRLPKC MACY11 setae’ 24-OCT-80 09:48 PAGE 27 


‘CR'.PKC.P11 14-AUG-80 13:59 RAPAROUND TEST SEQ 0049 
site ‘CHANGE HISTOGRAM ERROR TO RELATIVE ACCURACY ERROR 
2149 007724 005001 RELACC: CLR R1 :RUNNING ERROR = 0 
2150 007726 005003 CLR R3 :MAXIMUM ERROR = 0 
2151 007730 104401 013547 TYPE ,MSG21 
2152 007734 012700 042302 MOV #BUFFER+2,R0 
2153 007740 011002 NXTSTA: MOV (RO) ,R2 sSTATE WIDTH = R2 
2154 007742 162702 001440 SUB #800. ,R2 *STATE WIDTH ERROR IN R2 
2155 007746 060201 ADD R2,R1 UPDATE RUNNING ERROR 
2156 007750 010120 MOV R1,(RO)+ :SAVE IN BUFFER 
2157 007752 010104 MOV R1,R4 sSAVE IN R4& ALSO 
2158 007754 100001 BPL PLUS :1S IT POSITIVE? 
2159 007756 005404 NEG R4 :NO = MAKE IT POSITIVE 
2160 007760 020403 PLUS: CMP R4,R3 *CHECK AGAINST PREVIOUS MAX. ERROR 
2161 007762 003405 BLE NOTNEW :NOT A NEW MAXIMUM 
2162 007764 010403 MOV R4,R3 sUPDATE MAXIMUM IN R3 
2163 007766 010005 MOV RO,RS 
2164 007770 162705 042302 SUB #BUFFER+2,R5 
2165 007774 006205 ASR R5 :RS=EDGE VALUE AT MAX. RELACC 
2166 007776 020027 062276 NOTNEW: CMP RO, #BUFFER+8190. ;DONE? 
2167 010002 001356 BNE NXTSTA :-NO - REPEAT 
2168 01 006203 ASR R *RESCALE FROM 1 LSB = 800. SCALING 
2169 010006 006203 ASR R3 :T0 1 LSB = 100. SCALING 
2170 010010 006203 ASR R3 
2171 010012 005503 ADC R3 
2172 010014 010302 MOV R3,R2 
2173 010016 004737 011472 ; JSR PC ,DECTYP 
2174 010022 104401 013574 TYPE ,LINEA 
-2175 010026 010546 MOV R5,-(SP) ::SAVE RS FOR TYPEOUT 
(1) :; TYPE VALUE 
(1) 010030 104403 TYPOS ::G0 TYPE--OCTAL ASCII 
(1) 010032 004 BYTE 4 -: TYPE 4 DIGIT(S) 
(1) 010033 001 ‘BYTE 1 >: TYPE LEADING ZEROS 
2176 010034 104401 012433 TYPE , SLASH :PRINT ‘/' 
2177 010040 005205 INC R5 
2178 010042 010546 MOV R5,-(SP) ::SAVE RS FOR TYPEOUT 
(1) :: TYPE VALUE 
(1) 010044 104403 TYPOS ::G0 TYPE--OCTAL ASCII 
(1) 010046 004 BYTE 4 >: TYPE 4 DIGIT(S) 
(1) 010047 001 BYTE 1 >; TYPE LEADING ZEROS 
2179 010050 020337 011736 CMP R3,VLIN 
2180 010054 003403 BLE 41 
2181 010056 104401 012507 TYPE ,ERMSG 
2182 010062 000402 BR 42$ 
2183 010064 104401 012476 41$: TYPE ,OKMSG 
2184 010070 005737 001400 42$: TST FLAG :V155? 
2185 010074 001503 BEQ L02 
2186 010076 012700 042300 MOV #BLUFFER,RO 
2187 010102 012701 010000 MOV #4096. ,R1 


me ee mee eee ee ee re ee eee 


— <n ee eee 


owe ee eee ew ww 


LPA=AD11K TEST MD-11-CRLPKC 


CRLPKC.P11 
2189 010106 
2190 010110 
2191 010112 
$136 010114 
2193 010116 
2194 010120 
2195 010124 
2196 010126 
2197 010130 
2198 010132 
2199 010136 
2200 010142 
2201 010146 
2202 010152 
2205 010156 
2204 010160 
2205 010164 
2206 010170 
2207 010172 
2208 010176 
2209 010200 
2210 010204 
2211 010210 
2212 010212 
2213 010216 
2214 010220 
i Be 
5519 010982 
2218 010254 
2219 0102356 
2220 010240 
2221 010244 
2222 010250 
2225 010254 
2224 010260 
2225 010264 
2226 010270 
2227 010274 
2228 010300 
2229 010304 
2230 010306 
2231 010312 
2232 010314 
22335 010316 
2234 010322 
2255 Ot OsSe 
2236 010326 


= 


SNS NWI NIYIPOUPNOUN O 
=—ONIPMIPNIPYIPYITY 


SSfss 


MITUIPOIPITUP — ION V1 


oS 
Wo 
SW UFO 


_ 2 3 . 2 = «3d 
~~ 


SeSesssssSscos 
~N— 


par 
™m 
WOW 
OWOW 
MmwNuUN 


14-AUG-80 13:59 


000166 


042300 


000007 


001414 
001420 


001414 


001414 
001420 


001420 


001414 
001420 


013062 
014903 


010330 
001000 


011370 


GETDAT: 


NXT8: 


NXTCMP: 


MAXTST: 


TST8: 


MOV 
ASR 





eee — eee _~e —_- 


aay eee = 
MACY11 306(1063) 24-OCT-80 09:48 PAGE 28 
WRAPAROUND TES* 


(RO) ,R2 
R2 


Re 
Re 


R2 
#118. ,R2 
R2,(RO)+ 
R1 


;GET RELATIVE ACCURACY ERROR SCALED 1LSB = 800. 
;RESCALE IT TO 1 LSB = 100. 


;AND MOVE IT TO MID-SCREEN 
;PUT IT BACK INTO BUFFER 


GETDAT 
#BUFFER,RO 
#BUFFER,R4 
#BUFFER+2,R5 
#512. ,R1 


R3,MIN ;MINIMUM 
; MAX 1MUM 


;NEW MINIMUM 


:NEW MAXIMUM 


NXTCMP 

MIN, (R4)+ 
MAX, (R5)+ 
as na 


NXT8 
-MSG18 


,BUFF2 
#BUFFER,RO 
PC ,LOAD 


;BUMP EACH ONCE MORE 


; TYPE BUFF2 


C ; TYPE ASCIZ STRING 
#BUFFER+2,R0 

PC ,LOAD 

C ;TYPE ASCIZ STRING 
PC ,DELCLR 


PC 
#512.,R1 
(RO)+,R2 
(RO) + 

PC ,LOADY 
R1 


LOADO 
PC 


SEQ 0050 


-—— . —_— 





LPA-AD11 
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K TEST MD-11-CRLPKC 


—_ 


ae een 
ALAMOS NO 


fowloleleleolol~ mm elolelelefelojolelanl a 
FRSN 
~ 


lt eld eld ced al ad ed ed aed ed aod od od dd 4d o> 3d 


SERe8 
NAS 


AARRRRRRE REESE 
RSSSFSFSSEASESR 


oo 
wi 


COOSCSCSOSOSCSCOCOSOO OOOO OCOOCoOoOoCooooSoo 
Mn &WWINIPNIPY at = 


ee ee eed ed aed aoe aed ad aod a ad ad ed aed aed aod aed a? ad 2. «od a 4... «4 4. —. 


SQoQoooooeo°ooo 
MUMIA 


104401 
013746 


104403 
002 


P11 14-AUG-80 13:59 


000020 


010000 


014023 


001362 


010424 


012375 
001374 


001374 
001376 


001376 


001374 
001376 
012476 
012507 


170564 


001360 


006436 


011730 
011732 





WRAPAROUND TES? 


DELCLR: CLR 
MOV 
1$: DEC 


2$: TYPE 


RTS 
>sNOISE SUBROUTI 
MOV 


NOITST: 


RO 
#20,R1 
RO 


1$ 
R1 
1$ 
#B1T12,aSWR 
2$ 


»VTINIT 


Pp 

NE;; 
a(R5)+,CHANL 
CHANL , DUMMY 
PC ,GETEDG 
PCNOIA 

#1, EDGFLG 

PC TYPRP 

R5 


:;TYPE RMS AND PEAK VALUES;; 
TYPRP: TYPE oN 


C 
POSRMS: Hy 


C 
POSPEA: MOV 


ER: TYPE 


M 
POSRMS 
R 


RMS ,R2 

PC ,DECTYP 
»MESR 

PEAK ,R2 

PC ,DECTYP 
»MESP 

PC, TYPEDG 

, CHAN 

CHANL ,-(SP) 


em re ee ee ee ee ee 


Mm 4 
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;DELAY BEFORE CLEANING SCREEN 


;TEST FOR HALT FOR DISPLAY 
;;DON'T HALT FOR DISPLAY 


LOAD CHANNEL 


;LO 
;GET EDGE VALUE 
;GET RMS AND PEAK VALUES 


; TYPE RMS AND PEAK VALUES 


:RMS<O,SET RMS=0 


;PEAK<O,SET PEAK=0 


;;SAVE CHANL FOR TYPEOUT 
;; TYPE CHANL 

;:GO TYPE--OCTAL ASCII 
;sTYPE 2 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 
sWITHIN LIMITS? 


sWITHIN LIMITS? 


SEQ 0051 


-- -—- —_ -—- —-— mm ee ee ee as a ee eee ee ee ee ae + eso + oe ne oe eee 


ane eSaE Se ee ree tetas 
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CRLPKC.P11 14-AUG-80 13:59 RAPAROUND TEST SEQ 0052 
288 :: SUBROUTINES FOR NOISE TEST;; 
289 010560 005037 001374 NOIA: CLR RMS :CLEAR RMS VLAUE 
2290 010564 005037 001376 CLR PEAK sCLEAR PEAK VALUE 
2291 010570 004537 006440 NOI1: JSR RS,SARSUB :DO0 SAR ROUTINE AT 16% 
$oae 010574 000020 16. 
2293 010576 063737 001404 001374 ADD DAC,RMS sADD RESULT TO RMS 
2294 010604 004537 006440 JSR RS,SARSUB :D0 SAR ROUTINE AT 84% 
2295 010610 000124 84. 
2296 010612 163737 001404 001374 SUB DAC,RMS :SUBTRACT RESULT FROM RMS 
2297 010620 004537 006440 JSR RS ,SARSUB :D0 SAR ROUTINE AT 1% 
2298 010624 000001 1 
2299 010626 063737 001404 001376 ADD DAC ,PEAK :ADD RESULT TO PEAK 
2300 010634 004537 006440 JSR R5,SARSUB :D0 SAR ROUTINE AT 99% 
2301 010640 000143 99. 
2302 010642 163737 001404 0013576 SUB DAC ,PEAK :SUBTRACT RESULT FROM PEAK 
tats 010650 000207 RTS PC s RETURN 
2305 010652 012537 001362 NOI8: MOV (R5)+,CHANL ;GET CHANNEL VALUE 
2306 010656 063737 001332 001362 ADD BASECH, CHANL , 
2307 010664 013737 001362 001360 MOV CHANL , DUMMY :LOAD DUMMY CHANNEL 
2308 010672 004737 006214 JSR PC,GETEDG :GET EDGE VALUES 
2309 010676 005037 001374 CLR RMS :CLEAR RMS VALUE 
2310 010702 005037 001376 CLR PEAK sCLEAR PEAK VALUE 
2311 010706 012737 000010 010774 MOV #10,10$ :SET UP COUNTER 
2312 010714 004737 010570 1$: JSR PC,NOI1 ;GET NOISE VALUES 
2313 20 005237 001410 INC EDGE 
2314 010724 005337 010774 DEC $ 
2315 107 001371 BNE 1$ sREPEAT 8 TIMES 
2316 0107 162737 000010 001410 SUB #10,EDGE 
2317 010740 006237 001374 ASR RMS :SCALE IT TO 1 LSB=100. 
2318 010744 005537 001374 ADC RMS 
2319 010750 006237 001376 ASR PEAK 
2320 010754 005537 001376 ADC PEAK 
2321 010760 012737 000010 006436 MOV #8.,EDGFLG 
2322 010766 004737 010424 JSR PC, TYPRP sTYPE RESULTS 
2323 010772 000205 RTS R5 s RETURN 
2324 010774 000000 10$: 0 : COUNTER 
2325 
2326 
2327 :;RANDOM NUMBER GENERATOR; ; 
2328 010776 063737 Oo as 001366 RANDY: ADD RNB, RNA 
2329 011004 063737 001372 001366 ADD RNC,RNA 
2330 011012 005537 001366 ADC RNA 
2331 011016 063737 001366 001370 ADD RNA,RNB 
th 011024 063737 001372 001370 ADD RNC ,RNB 
23 011032 005537 001370 ADC RNB 
2334 AB Fa 063737 001366 001372 ADD RNA, RNC 
2335 011044 063737 001370 001372 ADD RNB , RNC 
2336 011052 005537 001372 ADC RNC 
2337 011056 000207 RTS PC 


a —— ee a ee + ee Ce -_-— -—— —_—- — « -_ —_——- — = 


rr A me ee ——— ee -_< . 
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CRLPKC.P11  14-AUG-80 13:59 WRAPAROUND TEST 





SEQ 0055 


g 39 -:ROUTINE TO AVERAGE 8 CONVERSIONS;; 
0 011 01 500 CONVRT: MOV (R5)+,RO :GET CHANNEL VALUE 
é 1 01106 700 001332 ADD BASECH,RO 
¢ 011066 010037 001362 MOV RO, CHANL 
2 011072 000300 SWAB RO 
$e 011074 005037 001346 CLR TEMP 
(1) ;* MOV @ADBUFF,MYTEMP ;/READ DEVICE REG ADBUFF,PUT DATA IN MYTEMP. 
ot 011110 010037 001426 MOV RO, MYTEMP 
(2) :* MOV MYTEMP,@STREG :/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
2347 0111246 012700 010000 MOV #10000,R0 | 
2348 611130 0053500 2$: DEC RO 
2349 011132 001376 BNE 2$ 
2350 011134 012777 001702 170312 MOV #RETURN, @VECTOR :LOAD VECTOR 
2351 011142 012700 000010 MOV #10,R0 :SET UP COUNTER 
2332 011146 1$: 
(1) :* MOV @STREG.MYTEMP ;:/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 
2333 011156 052737 000001 001426 BIS #1, MYTEMP 
(1). st MOV MYTEMP,@STREG ;/ PUT DATA FROM MYTEMP TO DEVICE REG STREG 
2355 011174 005001 CLR R1 
2356 011176 105201 10$: INCB R1 
2357 011200 001007 BNE 11$ 
2358 011202 012737 000200 001124 MOV #BIT7,$GDDAT -EXPECT DONE TO SET BY NOW 
2339 011210 013737 001426 001126 MOV MYTEMP ,SBDDAT 
$361 011216 104001 ERROR 1 :DONE FAILED TO SET ON A/D 
$302 011220 11$ 
(2) st MOV @STREG.MYTEMP ;/READ DEVICE REG STREG,PUT DATA IN MYTEMP. 
(1) 011230 105737 001426 TSTB = MY TEMP 
3363 011234 100360 BPL 10$ 
(1) :* MOV @ADBUFF,MYTEMP ;:/READ DEVICE REG ADBUFF,PUT DATA IN MYTEMP. 
2367 011246 063737 001426 001346 ADD MYTEMP, TEMP 
2368 :WAIT FOR CONVERSION 
2369 :READ BUFFER 
2370 011254 00 DEC RO 
2371 011256 001333 BNE 1$ :D0 8 TIMES 
2372 011260 237 001346 ASR TEMP sAVERAGE VALUE 
2373 011264 37 001346 ASR TEMP 
2374 011270 006237 001346 ASR TEMP 
2375 011274 005537 001346 ADC TEMP 
2376 011300 000205 RTS R5 :RETURN 
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eaieneiens : 7 - 
= adn wee PAGE 32 





LPA-AD11K TEST MD-11-CRLPKC MACY11 306(1063) 26 | 
CRLPKC.P11  14-AUG-80 13:59 WRAPAROUND TEST SEQ 0054 | 

2378 “COMPARE $GDDAT AND SBDDAT:; | 

é 79 011302 012537 001124 COMPAR: MOV (R5)+,$GDDAT :GET GOOD DATA 

011306 13537 0014 MOV a(R5)+, SPREAD “GET SPREAD 

2381 011312 013737 001346 001126 MOV TEMP, SBDDAT “GET BAD(ACTUAL) DATA 

2382 011320 013701 001126 MOV SBDDAT,R1 

2383 011324 013700 001124 MOV SGDDAT.RO 

2384 0113 0 160100 SUB R1,RO0 -GET DIFFERENCE 

2385 011332 100001 BPL 7$ 

2386 011334 005400 NEG RO 

2387 011336 020037 001402 7$: CMP RO, SPREAD :COMPARE IT TO SPREAD 

2388 011342 003001 BGT 10$ -G0 TO ERROR PRINTOUT 

2389 011344 005725 TST (R5)+ “BUMP RETURN POINTER AROUND ERROR CALL 

2390 011346 000205 10$: RTS RS 

2392 - SUBROUTINE TO RESET & SET INTRPT. EN.;: 

2393 011350 004737 020224 RST: JSR PC $RESET 

2394 011354 052777 000100 167562 BIS #100, a$TKS 

2395 011362 005037 177776 CLR PSW 

2396 011366 000207 RTS pc 

2397 

2398 

2399 

2400 » SUBROUTINE LOADY; 

2401 011370 005702 LOADY: TST R2 “ROUTINE TO LOAD VLAUE INTO R2 

2402 011372 100001 BPL PLUSR2 “AS A VTS5 Y-VALUE 

2403 011374 005002 CLR R 

404 011376 020227 000353 PLUSR2: CMP R2,#235. 

2405 011402 002402 BLT LESS 

406 011404 012702 000353 MOV #235. ,R2 

2407 011410 010203 LESS: MOV R2,R3 

2408 011412 042702 177740 BIC #177740,R2 

2409 011416 052702 000040 BIS #40,R2 

2610 011422 105 167522 B10: STB  a$TPS “PRINT CHARACTER 

2411 011426 100375 BPL B10 

2412 011430 110277 167516 MOVB R2,a$TPB 

2413 011434 006203 ASR R3 

2414 011436 006203 ASR R3 

2415 011440 203 ASR R3 

2416 011442 006203 ASR R3 

2417 011444 006203 ASR R3 

2418 011446 042703 177770 BIC #177770,R3 

2419 011452 052703 000040 BIS #40,R3 

2420 011456 105777 167466 B11: STB  a$TPS “PRINT CHARACTER 

2421 011462 100375 APL B11 

2422 011464 110377 167462 MOVB  R3,a$TPB 

2423 011470 00020 RTS PC 
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4 011472 
24 011474 
2431 011476 
2432 011502 
2433 011504 
2434 011510 
2435 011512 
2436 011516 
2437 011522 
2438 011526 
2439 011532 
2440 011534 
2441 011536 
2442 011540 
2443 011544 
2444 011552 
2445 011554 
2446 011560 
2447 011564 
2448 011572 
2449 011574 
2450 011600 
2451 011604 
2452 011606 
2453 011614 
2454 Boks 
2455 011630 
2456 011634 
2457 
2458 011636 
2459 011642 
2460 011646 
2461 011650 
2462 011654 
2463 011656 
2464 011662 
2465 011664 
2466 011670 
2467 011672 
2468 011676 
2469 011700 
2470 011702 
2471 011704 
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MD-11-CRLPKC 
14-AUG-80 13:59 


012255 
001747 


0145635 
911730 
001332 
011762 
001416 
011742 
011752 
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WRAPAROUND TES? SEQ 0055 
»: SUBROUTINE TO TYPE DECIMAL VALUE:; 
::IN R2 AS X.XMX;; 
DECTYP: TST R2 -TEST VALUE TO BE TYPED 
BPL POS 
TPE Minus : TYPE MINUS SIGN 
POS: CMP R2,#999 :>999. REPLACE IT WITH 999. 
BLE OKAYD 
MOV #999. ,.R2 
OKAYD: CLRB ONES -CLEAR ONES 
CLRB —sCTENS “CLEAR TENS 
CLRB  —-HUNS “CLEAR HUNS 
TESTR2: TST R2 “CONVERT VALUE TO A DECIMAL VALUE 
BEQ TYPOUT 
DEC R2 
INCB ONES 
CMPB ONES, #110 
BNE TESTR2 
CLRB ONES 
INCB =C*'TEN 
CMPB sc: TENS, #10 
BNE TESTR2 
CLRB —s TENS 
INCB HUNS 
BR TESTR2 
TYPOUT: BISB #60,HUNS sPREPARE FOR TYPOUT 
BISB  #60,TENS 
BISB  #60,ONES 
TYPE HU > TYPE VALUE . 
RTS PC i << 


WEADJ: MOV #VNR,R1 - SUBROUTINE TO SET UP LIMITS 

Ist BASECH “TESTING AN AM11K? 

MOV #VARLT3,R2 2 -BASECH NOT ZERO, USE AM11K LIMITS 
1$ Ist WFTEST 

N 

MOV AVARLTI .R2 -WETEST=0,USE NORMAL LIMITS 
2$: MOV FVARLT2,R2 -WETEST=1,USE OPTION AREA LIMITS 
3$: MOV (R2)+,(R1)+ 

TST (R1) 

BPL 3$ 

RTS PC 


LPA-AD11K TEST MD-11-CRLPKC 


CRLPKC.P11 
2473 011706 
2474 011710 
2475 011712 
2476 011714 
2477 011716 
2478 011720 
2479 011722 
2480 011724 
2481 011726 
2482 
2483 011730 
2484 011732 
2485 011734 
2486 011736 
2487 011740 
2488 
2489 011742 
2490 011744 
2491 011746 
2492 011750 
2493 
2494 011752 
2495 011754 
2496 011756 
2497 011760 
2498 
2499 011762 
2500 011764 
2501 011766 
2502 011770 
2503 
2504 011772 
25U5 012000 
2506 012004 


26 
000206 
000151 


000062 
000310 
000310 
000226 


052777 
000177 
001712 


14-AUG-80 13:59 


000100 
000000 


MACY11 306(1063) 


167144 


VARLT1: 


VARLT2: 


VARLTS: 


AGATST: 


AGTST: 


3 
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WRAPAROUND TES* 


, : TOLERANCE VALUES FOR FUNCTIONAL TESTS 
10 

50 

144 

115 

240 

5 

50. 

0 RMS NOISE LIMIT 

0 :PEAK NOISE LIMIT 

0 : INTER=CHANNEL SETTLING LIMIT 
0 *RELATIVE ACCURACY ERROR LIMIT 
B1T15 

36 :.3 LSB,NORMAL LIMITS FOR SYSTEM 

200. "2. LSB, INTEGRATION AND FIELD USE ON SPEC TESTS 
226 1.5 LSB 

156 -1.1 LSB 

36 -.25 LSB, TIGHTER LIMITS FOR OPTION 
150 -1.5 LSB, AREA USE ON SPEC TESTS 

206 71.35 LS 

151 1.05 LSB 

50. -.5 LSB, LIMITS FOR AM11K TESTING 
200. :2. LSB 

200. °2. eB 

150. 71.5 LSB 


BIS #100,a$TKS 
JMP @AGTST 


SEQ 0056 


r - - -—— — - —_- ——-< ~ wee ee eae C- 
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CRLPKC.P11 —- 14=AUG-80 13:59 ND OF PASS ROUTINE SEQ 0057 
| 2508 .SBTTL END OF PASS ROUTINE 

(2) s RRAARHHHAAEAAHAAKAA HATTA THAT ee ee KeeHeKeAeeKetATeKeterererereret 

(1) “INCREMENT THE PASS NUMBER ($PASS) 

(1) “*TYPE "END PASS #XXXXX'’ (WHERE XXXXX IS A DECIMAL NUMBER) 

(1) -*]F THERES A MONITOR GO TO IT 

W) -#1F THERE ISN'T JUMP TO AGATST 

(1) 012006 SEOP: 

(2) 012006 000240 NOP 

(1) 012010 005037 001102 CLR STSTNM -:7ERO THE TEST NUMBER 

(1) 012014 005037 001160 CLR STIMES = 7ERO THE NUMBER OF ITERATIONS 

(1) 012020 005237 001202 INC SPASS :: INCREMENT THE PASS NUMBER 

(1) 012024 042737 100000 001202 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 

(1) 012032 005327 DEC (PC)+ ;;LOOP? 

(1) 012034 000001 SEOPCT: .WORD 

(1) 012036 003022 BGT SDOAGN YES 

(1) 012040 012737 MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 

(1) 012042 000001 SENDCT: .WORD 1 

(1) 012044 012034 SEOPCT 

(1) 6 104401 012113 SENDMG >: TYPE "END PASS #"’ 

(2) 012052 013746 001202 MOV $PASS,-(SP) = SAVE $PASS FOR TYPEOUT 

(2) 012056 104405 TYPDS :GO TYPE=-DECIMAL ASCII WITH SIGN 

(1) 060 104401 012110 TYPE  ,$ENULL :: TYPE A NULL CHARACTER 

(1) 013700 000042 $GET42: MOV a#42,R0 = GET MONITOR ADDRESS 

gt 7/ 8 Sate eee SDOAGN _. =:BRANCH IF NO MONITOR “ Py: 

(1) 012072 000005 RESET = CLEAR THE WORLD 

(1) 012074 004710 SENDAD: JSR PC, (RO) -=G0 TO MONITOR 

(1) 012076 000240 NOP :;SAVE ROOM 

(1) 012100 000240 NOP FO 

(1) 012102 000240 NOP = ACTI1 

(1) 012104 SDOAGN: 

(1) 012104 000137 JMP a(Pc)+ +: RETURN 

(1) 012106 011772 SRTNAD: .WORD AGATST 

(1) 012110 377 377 000 $ENULL: .BYTE -1,-1,0 »sNULL CHARACTER STRING 

(1) 012113 015 042412 042116 $SENDMG: .ASCIZ <15><12>/END PASS #/ 

(1) 012120 050040 051501 020123 

mS?) 012126 000043 
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CRLPKC .P11 
2511 
2512 012130 
012136 
012144 
2513 012150 
012156 
012164 
012172 
012200 
012206 
012214 
012222 
012230 
2514 012235 
2515 012237 
2516 012241 
012244 
2517 012246 
012251 
2518 012253 
012256 
012261 
012264 
2519 012266 
012274 
2520 012275 
2521 012301 
012306 
012514 
2522 012321 
2523 012324 
2524 012331 
012336 
2525 012344 
012352 
012360 
2526 012366 
2527 012373 
012400 
2528 012403 
012410 
012416 
2529 012420 
012426 
2530 012435 
2531 012435 
012442 
012450 
012456 
012464 
012472 
2532 012476 
012504 
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VME rmormouwviv 


14-AUG-80 13:59 


— —§ VAIO VIV 
OD — PIN FY EN — 
OO fF OwOo fF oO 


0 
041125 


| 6 5 
MACY11 30G6(1063) 24-OCT-80 09:48 PAGE 36 
ASCII MESSAGES 


ASCI1 MESSAGES 
<15><12>/NOISE TEST=- / 


0 
042525 


041440 
046105 


047504 
000 


0414 


0 
é 
1 
1 
4 
04551 


5 
M4 
7 
6 
0 
7 


»SBTTL 
NOIMSG: 


SETMSG: 


MINUS: 
QUEST: 
AMSG: 
CMSG: 


GMSG: 


LSBMSG: 
DASH: 
STATE: 


CH: 
SPACE: 
LSB: 
SETCH: 
ATMSG: 
NOI: 
CHAN: 


DONE : 


SLASH: 
TOMSG: 


OKMSG: 


ASCIZ 


~ASCIZ 


~ASCIZ 


~ASCIZ 
eASCIZ 


~ASCIZ 


<15><12>/SETTLING TEST==- TYPE DESIRED ‘FROM® CHANNEL @ CR: / 


55,0 


77,0 
136,101,40,40,0 
136,103,40,40,0 


136,107,15,12,123,127,122,105,107,72,0 


/ LSB/<15><12> 


/-- / 
/STATE==- WIDTH/<15><12> 


/CH/ 
/ / 
/ LSB ON CH/ 


/ SETTLING FROM CH/ 


/ AT 


/ 


/NOISE: / 


/ ON 


/ 


/ 


CHANNEL / 


DONE /<15><12> 


“/8 
/TYPE DESIRED *TO* CHANNEL & CR: / 


OK/<15><12> 


SEQ 0058 
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AOVMEOOUMESNMEN 
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2538 
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2542 012777 


2543 013025 


2544 01 


2545 
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006451 
042524 


046040 
052101 


020062 
051940 
000 


020102 
040440 


042116 
047514 
042524 


040440 
040440 


030461 


051514 


ERMSG: 


SKPMSG: 


NARMSG: 


WIDMSG: 


OUTMSG: 


HAFMSG: 


MESR: 
MESP: 


MEND: 


ONAD : 
MSG50: 


MSG18: 


ASCII 
eASCIZ 


»ASCI2 


»ASCIZ 


ASCIZ 


eASCIZ 


eASCI2 


-ASCIZ 
-ASCIZ 


-ASCI] 


-ASCIZ 


-ASCIZ 


ASCII 


-ASCIZ 
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MESSAGES 


SEQ 0059 
/ #tERROR*#/<15><12> 


/ SKIPPED STATE(S)/ 


# NARROW (< 1/2 LSB) STATE(S)#<15><12> 


# WIDE (> 1 1/2 LSB) STATE(S) #<15><12> 


/ STATE(S) WIDER THAN 2 LSB/ 


# STATE“WIDTH(S) OUTSIDE + OR - 1/2 LSB# 


/ LSB RMS, / 
/ LSB PEAK AT / 


<15><12>/END OF LOGIC TESTS/ 


/ ON ADIIK AT / 


/ ADI1K'S FOUND/<15><12> 


<12><12><12>#41/2 LSBA<15><12><12><12><12>«12><12><12><12><12><12><12><1 


\-1/2LSB\ 


r-- 


— or 
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ons 


ANA AAAI 
MELON fe~n 
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043106 
044524 
047111 
054524 


020040 


005012 
020040 


051514 
020040 


hr & YUP 
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051105 
01 


005012 
020040 


024502 
020040 


oO rr 


046440 
046525 


MSG20: 


MSG16: 


MSG71: 


2 
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ASCII MESSAGES 


EVEN 
~ASCIZ 


ASCII 


ASCII 


ASCII 


eASCIZ 


~ASCIZ 


~ASCIZ 


-ASCIZ 


/DIFFERENTIAL LINEARITY: /<15><12> 


/ STATE“WIDTH DISTRIBUTION/<15><12><12><12> 


+ 


SEQ 0060 


/ # GF STATES/<12><12><12><12><12><12><12>«<12><12><12><12><12><12><12>< 


# 0 1/2 1 


<15><12>/TYPE LETTER & CR FOR DESIRED TEST: / 


/RELATIVE ACCURACY:/<15><12> 


/ LSB MAXIMUM AT / 


STATE WIDTH (LSB)/<15> 


1 1/2 


Qn 


— _ —_-—--- -— 
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CRLPKC.P11 14-AUG-80 13:59 ASCII MESSAGES SEQ 0061 

013610 040440 020124 000 

2558 013615 015 eee 046101 HEADS: .ASCI] <15><12>/CALIBRATION--/ 
013622 041111 040522 044524 : 
013630 047117 026455 

2559 013634 051440 052105 041440 ASKCH: .ASCIZ / SET CHANNEL IN SWR LOW BYTE/<15><12> 
013642 040510 047116 046105 
013650 0444 020116 053523 
013656 020122 047514 020127 
013664 054502 042524 005015 
013672 000 

2560 013673 033 000132 co ASCIZ <33><132> 

2561 013676 000055 C1 ASCIZ <55> 

2562 013700 031033 000 C2 ASCIZ <33><62> 

2563 013703 112 000 : ASCIZ <112> 

2564 013705 015 047412 043106 MOFSET: .ASCIZ <15><12>/0FFSET =/ 
013712 042523 020124 000075 

2565 013720 046040 041123 000040 MLSB ASCIZ / LSB / 

566 013726 040440 020124 MA ASCIZ / AT / 
2567 013733 01 020012 047105 METST ASCIZ <15><12>/ ENTERING TEST / 


2568 013755 033 061 101 BUFF1: .BYTE  33,61,101,61,111,62,114,41,60,45,63,51,66,55,71,61,74,110,41,40,112,0 


11 
11 
2569 cranes 033 061 ae BUFF2: .BYTE 33,61,101,47,111,61,104,50,65,44,62,110,40,40,102,0 


2570 014023 033 110 033 VTINIT: .BYTE 33,110,33,112,335,61,101,40,55,62,0 
014034 000 
2571 014036 005015 041412 046122 HEAD1: .ASCII <15><12><12>#CRLPKCO LPA/AD11-K DIAGNOSTIC#<15><12> 


014066 042040 040511 047107 
044524 006503 


01 040440 ASCII <12>/A: AUTO TEST/ 
042524 


041440 ASCII = <15><12>/C: CALIBRATION/ 
040522 


046040 ASCII <15><12>/L: LOGIC TEST/ 
052040 


2572 


m= OO 


Wis yy 
FAO SOOO OWwN 


2574 


| 
| 
| 
2 
2 37 000 
013740 042524 044522 045516 
137 


WNW @UVIWIYIPOPI 


0 
0 
0 
0 
2573 0 
0 
0 
0 
0 
0 


eee ee eed od ed oe aed =o 2 
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2575 
2576 


2577 
2578 


2579 


2580 


2581 


2582 


2583 


ee cD cee ceed ee aed dd ed 


mr 
RSUROMNON PAW RONE 


wlelelelelelelelelelelelelelelejoeiole{ a) 


WAIN ANIA AION 
mm & Wn & 


pate 


14-AUG-8 


= 3 BON PNM WO] 
PNAS SUNN EE au 


759 


fF ONWE WW PO 


OOQOQoOOoooo°oo = 


05 


— 
Fa 
N—O— NO] FN — Or nvnrnrvnrn-— 


NW URN OOLSNMUOWNU 


—o 


046105 
051122 


046101 
051122 





——— 


006524 
047522 


005015 
041520 


EM1: 


EM2: 


EM3: 


FM4: 


DH1: 


DH2: 


DH3: 
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ASCII MESSAGES 


ASCII 


ASCII 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


ASCIZ 


eASCIZ 


eASCIZ 


<15><12>/N: NOISE TEST/ 
<15><12>/S: SETTLE TEST/ 


<15><12>/W: WRAPAROUND TEST/<15><12> 
<15><12>/STATUS REG. ERROR/<15><12> 


<15><12>/FAILED TO INTERRUPT/<15><12> 


/™ 
<15><12>/UNEXPECTED INTERRUPT/<15><12> 
<15><12>#ERROR ON A/D CHANNEL&#<15><12> 


JERRPC STREG EXPECTED ACTUAL/<15><12> 


JERRSC STREG CHANNEL NOMINAL TOLERANCE 


/ERRPC STREG ACTUAL/<15><12> 


ACTUAL / 


SEQ 0062 


a 


LPACADIIK TEST MD-11-CRLPKC 
CRLP 11 14-AUG-80 13:59 


KC. 


014626 
014630 
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000 


001316 


001402 
001316 


——<— » -- 
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001124 


001362 
001126 


001126 


-—— ee me ee ee 


— —_—— = 


ja a 
24-OCT-80 09:48 page 39 
ASCII MESSAGES 


BYTE 0 
BYTE 56 
BYTE Q 
BYTE 0,0 


SERRPC, STREG, SGDDAT, SBDDAT,0 
SERRPC ,STREG, CHANL ,SGDDAT , SPREAD, $BDDAT ,0 


SERRPC,STREG, SBDDAT ,0 


0 


—_—— a ee rt re eee 


SEQ 0063 


— — eee = ec e ewe ce - - 


Se eee es to pinialtaininetetaenigini 
neat TEST MD-11-CRLPKC MACY11 306(1063) 24-OCT-80 09:48 PAGE 40 
CRLPKC.P11 14-AUG-80 13:59 TTY INPUT ROUTINE SEQ 0064 


2600 .SBTTL TTY INPUT ROUTINE 
(2) SReARReHA AREA HET A THAT AHA eee eee AAKeeKeKeKetKeeKetKeAeeerATerere 
i * ENABL LSB 
(1) .DSABL LSB 
i 
(2) SRR EEEEE EE AE EE EEAAAAAAAAAAAAAAAAAAAARAA AAA AAA ATES 
OW) seTHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
(1) ;* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
(1) RETURN HERE »: CHARACTER IS ON THE STA 
NM ;* ::WITH PARITY BIT STRIPPED “OFF 
(1) 
(1) 014632 011646 SRDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
(1) 014634 016666 000004 000002 MOV 4(S 4 2(S P) ::SAVE THE PS 
(1) 014642 105777 164276 1$: TSTB ask s:WAIT FO 
(1) 014646 100375 BPL 1$ ::A CHARACTER 
(1) 014650 117766 164272 000004 MOVB a$TKB,4(SP) ::READ THE TTY 
(1) 014656 042766 177600 000004 BIC oe cet eT 4(SP) ;:GET RID OF JUNK IF ANY 
(1) 014664 026627 000004 000023 CMP 4(SP) ,#23 -:1§ IT A CONTROL-S? 
(1) 014672 001013 BNE 3$ :;BRANCH IF NO 
(1) 014674 105777 164244 ?$: TSTB asTKs ;;WAIT FOR A CHARACTER 
(1) 014700 100375 BPL 2$ :LOOP UNTIL ITS THERE 
(1) 014702 117746 164240 MOVB a$TKB,-(SP) GET CHARACTER 
(1) 0147 042716 177600 BIC #°C177, (SP) ;3MAKE IT 7-BIT ASCII 
(1) 014712 022627 000021 CMP (SP)+,#21 ::1S IT A CONTROL-Q? 
(1) 014716 001366 BNE 2$ si LF NOT DISCARD IT 
(1) 014720 000750 BR 1$ RESUME 
(1) 014722 026627 000004 000140 3$: CMP 4(SP),#140 ere IT UPPER CASE? 
(1) 014730 002407 BLT : BRANCH IF YES 
(1) 014732 026627 000004 000175 CMP 4(SP),#175 *:I1S IT A SPECIAL CHAR? 
(1) 014740 003003 BGT > :BRANCH IF YES 
(1) 014742 042766 000040 000004 BIC #40,4(SP) ::MAKE IT UPPER CASE 
(1) 014750 000002 4$: RTI ::G0 BACK TO USER 
(2) SRARAAAAEAAAAAAAAAA AAA AAA AAAAAAAAAAAAAAAAAERAAAE RARER ERATE AES 
(1) -*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
(1) **CALL: 
(1) : RDLIN :: INPUT A STRING FROM THE TTY 
(1) ft RETURN HERE >:ADDRESS OF FIRST CHARACTER "vit BE ON THE STACK 
C1) ‘oe >: TERMINATOR WILL BE A BYTE OF ALL O'S. 
(1) 014752 010346 SRDLIN: MOV R3,-(SP) SAVE R3 
(1) 014754 012703 015060 1$: MOV #STTYIN,R3 ::GET ADDRESS 
(1) 014760 022703 015070 2$: CMP #STTYINGS. -R3 ; ;BUFFER FULL? 
(1) 014764 101405 BLOS 4$ :BR IF YES 
(1) 014766 104406 RDCHR ::G0 READ ane CHARACTER FROM THE TTY 
(1) 014770 112613 MOVB (SP)+, (R3) >:GET CHARACTER 
(1) 014772 122713 000177 10$: CMPB #177, (R3) >:1S IT A RUBOUT 
(1) 014776 001003 BNE F P IF NOT 
(1) 015000 104401 001170 4$: TYPE SQUES >: TYPE A '?° 
(1) 015004 000763 AR >: CLEAR THE BUFFER AND LOOP 
(1) 015006 111337 015056 3$: MOVB (R3),9$ >:ECHO THE CHARACTER 
(1) 015012 104401 015056 TYPE .% 





me em mm rea ee en Oe ee -ee  ee eeeee — . 
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CRLPKC.P11  14-AUG-80 13:59 Y INPUT ROUTINE SEQ 0065 
(1) 015016 122728 000015 CMPB OS s# 15, (R3)¢ ::CHECK FOR RETURN 
(1) 015022 0013 ° BNE ::LOOP IF NOT RETURN 
(1) 0130¢4 105063 177777 CLRB 2 =1(R3) “:CLEAR RETURN (THE 15) 
(1) .015030 104401 001172 TYPE ,$uf >: TYPE A LINE FEED 
(1) 015034 012603 MOV (SP)+,R3 > RESTORE R3 
(1) 013036 011646 MOV (SP), -(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 01504 1666 000004 000002 MOV 4(SP5,2(SP) * FIRST ASCII CHARACTER ON IT 
(1) 015046 012766 015060 000004 MOV #STTYIN, 4(SP) 
(1) 015054 000002 RTI RETU 
(1) 01505 000 9$: BYTE 0 STORAGE FOR ASCII CHAR. TO TYPE 
(1) 01505 000 .BYTE 0 RMINATOR 
(1) 015060 000010 $TTYIN: .BLKB 8. > RESERVE 8 BYTES FOR TTY INPUT 
(1) 015070 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> «CONT ROL ‘U"' 
(1) 015075 136 006507 000012 $CNTLG: .ASCIZ yanyeyesc} o> =: CONTROL ''G 
(1) 015102 005015 053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = / 
(1) 015110 020075 000 | 
(1) 015113 040 047040 053505 SMNEW: .ASCIZ / NEW = 
(1) 015120 036440 000040 
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CRLPKC.P11 14~ AUG-80 13:59 READ AN OCTAL NUMBER FROM THE 1 SEQ 0066 


oe -SBTTL READ AN OCTAL NUMBER FROM THE TTY 
(2) seeeeeeeeerereeeereererererereeereneneeaeereeereareeeaeeeeTererse 
(1)  STHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
(1) : # CHANGE IT TO BINARY. 
(1) **CALL: 
(1) ;* RDOCT ;;READ AN OCTAL NUMBER 
(1) 3 RETURN HERE :;LOW ORDER BITS ARE ON TOP OF THE STACK 
He :e ::HIGH ORDER BITS ARE IN $HIOCT 
(1) 015124 011646 SRDOCT: MOV (SP) ,-(SP) ee SPACE FOR THE . 
(1) 015126 016666 000004 000002 MOV 4 (SP), 2(SP) :; INPUT NUMBER 
(3) 015134 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 015136 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
(3) 015140 010246 MOV R2,-(SP) ; PUSH R2 ON STACK 
(1) 015142 104407 1$: RDLIN sREAD AN ASCIZ LINE 
(1) 015144 012600 MOV (SP)+,RO > GET ADDRESS OF 1ST CHARACTER 
(1) 015146 005001 CLR R1 :;CLEAR DATA WORD 
(1) 015150 005002 CLR R2 
(1) 015152 112046 23: MOVB (RO)+,=(SP) ::PICKUP THIS CHARACTER 
(1) 015154 001412 BEQ 3$ ::1f ZERO GET OUT 
(1) 015156 006301 ASL R1 738 
(1) 015160 006102 ROL R2 
(1) 015162 006301 ASL R1 33%4 
(1) 015164 006102 ROL R2 
(1) 015166 301 ASL R1 :3*8 
(1) 015170 006102 ROL R2 
(1) 015172 042716 177770 BIC #*C7, (SP) ssSTRIP THE ASCII JUN 
(1) 015176 062601 ADD (SP)+,R1 ::ADD IN THIS DIGIT 
(1) 015200 000764 BR 2$ LOOP 
(1) 015202 005726 3$: TST (SP)+ CLEAN TERMINATOR FROM STACK 
(1) 015204 010166 000012 MOV R1,12(SP) ::SAVE THE RESULT 
(1) 015210 010237 015224 MOV R2,$HIOCT 
(3) 015214 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 015216 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 015220 012600 MOV (SP)+,R0 + POP _ INTO RO 
(1) 015222 000002 RTI sRETURN 
(1) 015224 00000 SHIOCT: .WORD 0 : > HIGH ORDER BITS GO HERE 
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PKC.P11 14-AUG-80 13:59 E HANDLER ROUTINE SEQ 0067 
2604 .SBTTL SCOPE HANDLER ROUTINE 

(2) 3g “RRAAATAEAAEARAEAEREARAEEAETAAEATAEEAAAAARAAAARAAARAAEKRARAARAAAEAAARAAAEAAARAAEE 

(1) “*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

(1) **AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 

(1) “AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

(1) “*#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) *SW14=1 LOOP ON TEST 

(1) #SW11=1 INHIBIT ITERATIONS 

(1) : *SWw09=1 LOOP ON ERROR 

(1) *Sw08=1 LOOP ON TEST IN SWR<7:0> 

(1) > *CALL 

) ;* SCOPE : :SCOPE=10T 

(1) 015226 SSCOPE: 

(1) 015226 032777 040000 163704 1$: BIT #B1T14,aSWR : LOOP ON PRESENT TEST? 

(1) 015234 001114 BNE SOVER YES IF Swi4=1 

(1) -MHAHASTART OF CODE FOR THE XOR testeneewes 

(1) 015236 000416 $xTSTR: BR sb : IF RUNNING ON THE ""XOR'’ TESTER CHANGE 

(1) -:THIS INSTRUCTION TO A ‘NOP’ (NOP=240) 

(1) 015240 013746 000004 MOV Q#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 

(1) 015244 012737 015264 000004 MOV #5$ ,a#ERRVEC :$SET FOR TIMEOUT 

(1) 015252 005737 177060 TST a#177060 “TIME OUT ON XOR? 

(1) 015256 012637 000004 MOV (SP) +, a#ERRVEC * RESTORE THE ERROR VECTOR 

(1) 015262 000463 BR SSVLAD -:G0 TO THE NEXT TEST 

(1) 015264 022626 5$: CMP (SP)+,(SP)+ *=CLEAR THE STACK AFTER A TIME OUT 

(1) 015266 012637 000004 MOV (SP) +, AFERRVEC : sRESTORE THE ERROR VECTOR 

(1) 015272 000423 BR 7$ ON THE PRESENT TEST 

(1) 015274 6$:;M#HAHEND OF CODE FOR THE XOR ‘Hore Reae 

(1) 015276 032777 000400 163636 BIT #B1TO8,aSWR ; s LOOP ry SPEC. TEST? 

(1) 015302 001404 BEQ 2 IF NO 

(1) 015304 127737 163630 001102 CMPB es @SWR, STSTNM :30N THE RIGHT TEST?  SWR<7:0> 

(1) 015312 00146 BEQ SOVER “BR IF YES 

(1) 015314 105737 001103 2$: TSTB = SERFLG 3 3HAS AN ERROR OCCURRED? 

(1) 015320 00142 BEQ 3$ “BR IF NO 

(1) 015322 123737 001115 001103 CMPB ss SERMAX,, SERFLG 3 MAX. ERRORS FOR THIS TEST OCCURRED? 

(1) 015330 101015 BHI & “BR I 

(1) 015332 032777 001000 163600 BIT #B1T09, aSWR : [LOOP ON ERROR? 

(1) 015340 001404 BEQ 4$ -:BR IF NO 

(1) 015342 013737 001110 001106 7S: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 

(1) 015350 000446 BR SOVER 

(1) 015352 105037 001103 4$: CLRB =. SERFLG ;;ZERO THE ERROR FLAG 

(1) 015356 005037 001160 CLR STIMES “CLEAR THE NUMBER OF ITERATIONS TO MAKE 

(1) 015362 000415 BR 1$ : TESCAPE TO THE NEXT TEST 

(1) 015364 032777 004000 163546 3$: BIT #BITI1,aSWR ss INHIBIT ITERATIONS? 

(1) 015372 001011 BNE 1$ R IF YES 

(1) 015374 005737 001202 TST SPASS 33 1 rIRsT PASS OF PROGRAM 

(1) 015400 001406 BEQ 1$ INHIBIT ITERATIONS 

(1) 015402 005237 001104 INC SICNT INCREMENT ITERATION COUNT 

(1) 015406 023737 001160 001104 CMP STIMES,SICNT © ;;CHECK THE NUMBER OF ITERATIONS MADE 

(1) 015414 002024 BGE SOVER “BR IF MORE ITERATION REQUIRED 

(1) 015416 012737 000001 001104 1$: MOV #1, $1CNT : REINLTIALIZE THE ITERATION COUNTER 

(1) 015426 013737 015502 001160 MOV SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 

(1) 015432 105237 001102 $SVLAD: INCB $TSTNM : + COUNT TEST NUMBERS 

(1) 015436 113737 001102 001200 MOVB  $TSTNM.STESTN ::SET TEST NUMBER IN APT MAILBOX 

(1) 015444 011637 001106 MOV (SP) ,SLPADR =:SAVE SCOPE LOOP ADDRESS 
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CRLPKC.P11 14-AUG-80 13:59 SCOPE HANDLER ROUTINE SEQ 0068 
| 








(1) 015450 011637 001110 (SP) ,SLPERR ;;SAVE ERROR LOOP ADDRESS 
(1) 015456 005037 001162 SESCAPE pooh THE ESCAPE FROM ERROR ADDRESS 
(1) 015460 Migs 7 000001 001115 #1 , SERMAX ; ONLY aL ONE(1) ERROR ON NEXT TEST 
(1) 015466 015777 001102 163446 SOVE STSTNM,@DISPLAY : DISPLAY TEST NUMBER 
(1) 0154674 013716 001106 SLPADR, (SP) rz FUDGE RETURN ADDRESS 
(1) 015500 000002 RT] z aL S PS 
(1) 015502 003720 SMXCNT: 2000. ;;MAX. NUMBER OF ITERATIONS 
wit) .SBTTL ERROR HANDLER ROUTINE 
(2) : SRRAAAAAAAAAAAAEAAAEAAAAAAERAAAAAAAAEKARAAAAAAAAARAAKAAAAA ALANS 
(1) -*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) -*SAVE TRE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) ;*AND GO TO SERRTYP ON ERROR 
(1) :*THE SWITCH wl = PROVIDED BY THIS ROUTINE ARE: 
(1) :*$W15= 1 T ON ERROR 
(1) 7*SW13=1 INHIBIT ERROR TYPEOUTS 
(1) ;*Swi0=1 BELL ON ERROR 
(1) ;*Sw09=1 LOOP ON ERROR 
(1) ; *CALL 
ae 5* ERROR WN ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 015504 SERROR: 
(1) 015504 105237 001103 7$: INCB SERFLG :3SET THE ERROR FLAG 
(1) 015510 001775 BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 
(1) 015512 013777 001102 163422 MOV STSTNM,@DISPLAY >: DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 015520 032777 002000 163412 BIT #B1T10,aSwR ;;BELL ON ERROR? 
(1) 015526 001402 BEQ 1$ ::NO - SKIP 
(1) 015530 104401 001164 TYPE SBELL :sRING BELL 
(1) 015534 005237 001112 1$: INC SERTTL ; COUNT THE NUMBER OF ERRORS 
(1) 015540 011637 001116 MOV (SP) ,SERRPC GET ADDRESS OF ERROR INSTRUCTION 
(1) 015544 162737 000002 001116 SUB #2, SERRPC 
(1) 015552 117737 163540 001114 MOVB @SERRPC,SIIEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 015560 032777 020000 163352 BIT #B1T13,aSWR ;;SKIP TYPEOUT IF SET 
(1) 015566 001004 BNE 20$ ;;SKIP TYPEOUTS 
(1) 015570 004737 015700 JSR PC ,SERRTYP ::G0 TO USER ERROR ROUTINE 
(1) 015574 104401 001171 TYPE ,SCRLF 
(1) 015600 208: 
(1) 015600 122737 000001 001214 CMPB #APTENV, SENV ;;RUNNING IN APT MODE 
(1) 015606 001007 BNE ;:NO,SKIP APT ERROR REPORT 
(1) 015610 113737 001114 015622 MOVB tM nF ;;SET ITEM NUMBER AS ERROR NUMBER 
(1) 015616 004737 016334 JSR PC,SATY ;;REPORT FATAL ERROR TO APT 
(1) 015622 00 21$: BYTE 0Q 
(1) 015623 000 BYTE 0 
(1) 015624 000777 223: BR 22% ;;APT ERROR LOOP 
(1) 015626 005777 1633506 2$: TST aSwR ;;HALT ON ERROR 
(1) 015632 100001 BPL 3$ ;;SKIP IF CONTINUE 
(1) 015634 000000 HALT ;;HALT ON ERROR! 
(1) 015636 032777 001000 163274 53%: BIT #B1T09,aSWR ; LOOP ON ERROR SWITCH SET? 
(1) 015644 001402 BEQ 4$ F NO 
(1) 015646 013716 001110 MOV SLPERR, (SP) : FUDGE RETURN FOR LOOPING 
(1) 015652 005737 001162 4$: TST SESCAPE ss CHECE on AN ESCAPE ADDRESS 
(1) 015656 001402 BEQ 5$ ;BR IF NONE 
aay Bieter 013716 001162 2 MOV SESCAPE, (SP) : SFUDGE RETURN ADDRESS FOR ESCAPE 
(1) 015664 022737 012074 000042 CMP #SENDAD ,a#42 ;;ACT-11 AUTO-ACCEPT? 
| (1) 015672 001001 BNE 6$ ; BRANCH IF NO 
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(1) 015674 000000 HALT 
(1) 015676 6$: 
(1) 015676 000002 


SEQ 0069 
7; YES 


RT] ; sRETUR 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


o 
& 


(1) 

(2) SRARAAAAAAAAAAEAEAAEAEAAAAAAAERAAAAAAARAAAAAAAAHAAAAAAAAAAAALEAAES 
(1) * STHIS ROUTINE USES THE he CONTROL BYTE’’ (SITEMB) TO DETERMINE WH 
(1) >*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTO) 
a3 :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 

(1) 015700 SERRTYP: 

(1) 015700 104401 001171 TYP , SCRLF :; "CARRIAGE RETURN’ & “LINE FEED’ 
(1) 015704 010046 MOV RO,-(SP) 7; SAVE R 

(1) 015706 5000 CLR RO ;;PICKUP THE ITEM INDEX 

(1) 015710 153700 001114 B1SB a*SITEMB,RO 

(1) 015714 001004 BNE 1$ ::1F ITEM NUMBER IS ZERO, JUST 

(1) :; TYPE THE PC OF THE ERROR 

(2) 015716 013746 001116 MOV SERRPC,-(SP) ;:;SAVE SERRPC FOR TYPEOUT 

(2) OY ADDRESS 

(2) 015722 104402 TYPOC O TYPE--OCTAL ASCIICALL DIGITS) 
(1) 015724 26 4 6$ ; ieee OUT 

(1) 015726 005300 1$: DEC RO ; ; ADJUST THE INDEX SO THAT IT WILL 
(1) 015730 006300 ASL RO ss WORK FOR THE ERROR TABLE 
(1) 015732 006300 ASL RO 

(1) 015734 006300 ASL RO 

(1) 015736 062700 001256 ADD #SERRTB,RO ;;FORM TABLE POINTER 

(1) 015742 012037 015752 MOV (RO)+,2$ ::PICKUP ‘ERROR MESSAGE’’ POINTER 
(1) 015746 001404 BEQ 3$ ;;SKIP TYPEOUT IF NO POIN TER 

(1) 015750 104401 TYPE +3 TYPE THE ‘ERROR MESSAGE’ 

(1) 015752 2$: . WORD 0 ::""ERROR MESSAGE’ POINTER es HERE 
(1) 015754 104401 001171 TYPE , SCRLF Aor ee | RETURN’’ & “‘LINE FEED’ 
(1) 015760 012037 015770 3$: MOV (RO)+,4$ PICKUP ‘DATA HEADER’’ POINTER 

(1) 015764 1404 BEQ 5$ * SKIP TYPEOUT IF 0 

(1) 015766 104401 TYPE :TYPE THE ‘‘DATA HEADER’’ 

(1) 015770 4$: .WORD 0 SIDATA HEADER" POINTER GOES HERE 
(1) 015772 104401 001171 TYPE ,ScRLF ;3'"CARRIAGE RETURN "8 LINE FEED 
(1) 015776 O11 5$: MOV (RO) ,RO ::PICKUP ‘DATA TABLE"’ POINTER 

(1) 016000 1 BNE 7% ::G0 TYPE THE DATA 

(1) 016002 012600 6$: MOV (SP)+,RO0 : RESTORE RO - 
(1) 016004 104401 001171 TYPE ,SCRLF 33 CARRIAGE RETURN'' & ‘LINE FEED 
(1) 016010 00020 RTS PC ; ;RETURN 

(1) 016012 7$: 

(2) 016012 013046 MOV a(RO)+,-(SP) +> SAVE a(RO)+ FOR TYPEOUT 

(2) 016014 104402 TYPOC :GO TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 016016 005710 TST (RO) 31S THERE ANOTHER NUMBER? 

(1) 016020 00177 BEQ 6$ 33 IF NO 

(1) 016022 104401 016030 TYPE 8$ >: TYPE TWO(2) SPACES 

(1) 016026 000771 BR ash 

(1) 016030 020040 000 8S: ASCIZ / J ::;TWO(2) SPACES 

(1) 016034 EVEN 


le et cet ed aed ae a 
o 


& 
™N 


ar we wes wee es eae ae ae ee ae ea ae es ae a ae es ee es 


Oooooco0cc0cooe 


ae 


el cel ce cee cee et etd aed aed aod od od 


WS & WW vvon-— 


—_ —» 


RP PR PR PR PR PR PLP PP Pe ee Fy hm, mo, Fm Pe Pe Pn Pn Pn Pm be PP LP Pe Pe a Pe Pe Pe ee le ee Pe he, le, fl fe hm fm 0 
MN —_—b oh —_ — —d 
=) RPP yey ye 
mM ALOLWS SN 


ee ee ee ee ec ee ee ee ed a etd ell el el el al 
ee ee ee a ee Oe ee i i i i it it ie 
felelel~ Mme lele~lelelelele lolol elelelelelelelejejejejejlelejqo) 
— 2 od od el el cl ee ec eee ee ee aed ed at od od od od 


AAO PAA A SSS 


MIMIRS 


LPA-ADI1K TEST MD-11-CRLPKC 
CRLPKC.P11 


14-AUG-80 13:59 


105737 


001157 


000002 
000001 


000100 


016104 
016324 


000040 


000002 
000011 
000200 


016312 


016246 
001156 


001154 
000001 


01624 
01631 


MACY11 306(1063) 
TYPE ROUT] 


001214 
001215 


001215 


~SBTTL TYPE ROUTINE 


seeeeeeetereeeetereerererereeeeereeeereneerereneneeeKeneeeeaeees 


: #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 if : 
ae WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 


; *NOTE 
: *NOTE 
-* 


FEED. 
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS 
SFILLC CONTAINS 


: *CALL 
:#1) USING A TRAP INSTRUCTION 
;¢@ YPE »MESADR 


; #OR 


61$: 
62$: 


2$: 
60$: 
3$: 
4$: 


$$: 
6$: 


7$: 


TYPE 
ME SADR 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
#WAPTENV, SENV 
62$ 
#APTSPCOL , SENVM 
62$ 


RO,61$ 
PC ,SATYS 


#APTCSUP,SENVM 
(RO)+,-(SP) 

4$ 

(SP)+ 

(SP)+,RO 

#2, (SP) 

#HT, (SP) 

8$ 

#CRLF, (SP) 

5$ 


(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 


2$ 

SNULL ,-(SP) 
1(SP) 

$ 


6 
PC ,STYPEC 
SCHARCNT 


F 6 
Stel 09:48 PAGE 43 


THE NUMBER OF FILLER ee REQUIRED. 
THE CHARACTER TO FILL AFTER 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


31S THERE A TERMINAL? 
:IMALT WERE IF NO TERMINAL 


7; SAVE RO 
::GET ADDRESS OF ASCIZ STRING 
+ ;RUNNING IN APT MODE 

:NO,GO CHECK +" y*! O areger! 
:: SPOOL- MESSAGE T. 
3:NO0,GO CHECK FoR CON NSOL E 
+3 SET UP MESSAGE sooness FOR APT 


E 
T CONSOLE SUPPRESSED 

VES, SKIP TYPE OUT 

: :PUSH CHARACTER TO BE TYPED ONTO STACK 

R IF IT ISN*T THE TERMINATOR 
THIF TERMINATOR POP IT OFF THE STACK 
;;RESTORE R 
fg ee H RETURN PC 
> sRETURN 
;;BRANCH IF <HT> 


;;BRANCH IF NOT <CRLF> 


-:POP <CR><LF> EQUIV 
;; TYPE A CR AND LF 


+5 a CHARACTER COUNT 

T NEXT CHARACTER 
360 TYPE THIS CHARACTER 

; IT TIME FOR mS CHARS.? 

F NO GO GET NEXT CHAR. 
IGET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 
;:DOES A NULL NEED TO BE TYPED? 
;;BR IF . ‘tet THE NULL OFF OF STACK 
;;G0 TYPE A NULL 
;;BD0 NOT COUNT AS A COUNT 


SEQ 0070 
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000040 
016246 
000007 


162676 


000002 
000015 


016312 
000012 


000001 
000001 


000001 


016560 
000001 
000100 
000004 
000002 
001174 
001210 


001210 


001212 
000004 
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016312 


162670 
000002 


000002 


016562 
016560 


016562 


001214 
001215 


000004 


001174 


016472 
000004 


306(1063) 
TYPE ROUT 
BR 7$ 
-MORIZONTAL TAB PROCESSOR 
8$: MOVB #° .(SP) 
9$: JSR pc $TYPEC 
BITB = #7 .SCHARCNT 
BNE 9 
TST (SP)+¢ 
BR 2$ 
STYPEC: TSTB a$TPS 
BPL STYPEC 
MOVB 2(SP).a$TPB 
CMPB ss CR, 2 (SP) 
BNE 1$ 
CLRB $CHARCNT 
R STYPEX 
1$: CMPB ss LF, 2( SP) 
BEQ STYPEX 
INCB (PC)+ 
SCHARCNT:.WORD 0 
STYPEX: RTS PC 


G 6 
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;;LO0P 


;;REPLA 


:; TYPE 
TAB 


CE TAB WITH SPACE 
A SPACE 


;;BRANCH IF NOT AT 

33 STOP 

;;POP SPACE OFF STACK 
:;GET NEXT CHARAC 
:;WAIT UNTIL PRIN 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
ft Rae A CARRIAGE RETURN? 


H I 


F 


TER 
TER IS READY 


NO 
— CHARACTER COUNT 
“I$ CHARACTER A LINE FEED? 


;;BRANCH IF YES 
;;COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 


-SBTTL APT COMMUNICATIONS ROUTINE 


RR ARE ARERR RERERE EERE A AERA A HARE TARA AAAAARERTERAREE TERE RE Te 
::TO REPORT FATAL ERROR 
::TO TYPE A MESSAGE 


$ATY1: 
SATY3: 


SATY4: 
SATYC: 


1$: 


23: 


3$: 


4$: 


#1,SFFLG 
RO,-(SP) 
R1,-(SP) 

: G 
#APTENV, SENV 
oe 
a4(SP),RO 
#2,4(SP) 
SMSGTYPE 

1$ 

RO,SMSGAD 
(RO)+ 

2$ 

SMSGAD,RO 

RO 


RO, SMSGLGT 
#4, SMSGTYPE 
a4(SP),4$ 
#2,4(SP) 
177776, -(SP) 
TYPE 


ee ee ee ee ee ee eee se ee 


:;TO ONLY REPORT FATAL ERROR 


:;PUSH RO ON STACK 
:;PUSH R1 ON STACK 
:;SHOULD TYPE A MESSAGE? 
s;1F NOT: BR 

; ;OPERATING UNDER APT? 
33 NOT: BR 

;;SHOULD SPOOL MESSAGES? 
33 NOT: BR 
3;GET wer AD 
;;SEE IF DONE W 
ee T: AIT 


;;1F NOT: W 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 


;;SUB START OF MESSAGE 


DDR. 
SSION? 


;;GET MESSAGE ih ae 


;;TELL APT TO TAKE MSG. 


:;PUT MSG ADDR IN JSR LINKAGE 


--B 
>: PUSH 145996 © 
== CALL TYPE MACRO 


ADDRESS 
oK 


SEQ 0071 
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016562 
001214 
001174 
000004 


016560 


016564 
016564 013746 000004 


016570 


000413 


MACY11 30 
A 
S$: 
10$: TSTB 
BEQ 
TST 
BEQ 
11$: TST 
BNE 
001176 MOV 
000004 ADD 
INC 
12$: CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
SMFLG: .BYTE 
SLFLG BYTE 
SFFLG: .BYTE 
EVEN 
APTSIZE=200 
APTENV=001 


APTSPOOL=100 
APTCSUP=040 


: : : a 
6(1063) 24-OCT-80 09:48 PAGE 43-2 
PT COMMUNICATIONS ROUTINE 


SEQ 0072 


SFFLG :;SHOULD REPORT “ATAL ERROR? 
12$ :;1F NOT: BR 

Se. oonare = APT? 
SMSGTYPE > ;FINISHED LAST MESSAGE? 

11 a3 NOT: WAIT 
a4(SP),SFATAL :;GET ERROR #@ 

#2,4(SP) --BUMP RETURN ADDR. 
SMSGTYPE ::TELL APT TO TAKE ERROR 
SFFLG :;CLEAR FATAL FLAG 

SLFLG ;; CLEAR LOG FLAG 

SMFLG ;;CLEAR MESSAGE FLAG 
(SP)+,R1 :;POP STACK INTO R1 
(SP)+,RO0 ::POP STACK INTO RO 

PC ; sRETURN 

0 ;;MESSG. FLAG 

0 es FLAG 

0 >:FATAL FLAG 


: 

:*THIS SUB CODE IS USED TO INITIALIZE THE LPA-11 
:eFIRST WE WILL LOAD MICROCODE INTO KMC-11 
s*NEXT WE WILL INIT BOTH UPROCESSORS 


;*THEN WE WILL LOAD DEVICE TABLE 


IN SLAVE UP. 


;*THE ORDER OF LOAD IS DETERMINED BY THE USER. 
te 


CALL= 


4,-(SP) 
31$ 


;* JSR 

; . WOR 
;* ROUTINES REQUIRED: 
;* PROGRAMS REQUIRED: 
-« 


R5,$LPAI 
0 


. LOADLP 
DRLPX2 


;ADDR. OF DEVICE ADDRESS. 


;RETURNS WITH SAERR=1 IF SLAVE 
;MICRO SAYS AN ADDR. DOES NOT EXSIST. IN THE LIST. 


:FIELD DOES NOT HAVE A BUS SWITCH TO 
;WORRY ABOUT,SO WE WILL UNCONDITIONALLY 
;BRANCH ARROUD THE NEXT CODE THAT 
;WORKS BASED ON A BUS SWITCH. 

;CODE LEFT IN HERE FOR IN HOUSE 
;PERSONAL WHO MAY PATCH THIS BRANCH 

; INSTRUCTION TO A <NOP> OCTAL <240> 

;IN ORDER TO RUN PROGRAM WITH A SWITCH. 


sNOTE THIS ‘‘SWITCH’’ IS A PIECE OF INHOUSE 
-TEST EQUIPMENT ONLY IT CONNECTS 
: THE UNIBUS TO THE 1/0 BUS FOR 


me ee - 
— o-= —— - - 


ae 
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CRLPKC.P11 14-AUG-80 13: 59 COMMUNICATIONS ROUTINE SEQ 0073 


(2) -CERTAIN TESTING. 

(2) 016572 012737 016616 000004 MOV #30$,4 

(2) 016600 005237 170000 INC 170060 | 

(3) 016604 104401 016612 TYPE 65$ -: TYPE ASCIZ STRING 

(3) 016610 000401 BR 64$ : "GET OVER THE ASCIZ 

(3) -:65$: .ASCIZ <7>4# 

(3) 016614 64$: 

(2) 016614 000401 BR 31$ 

(2) 016616 022626 30$: CMP (SP)+,(SP)+ 

(2) 016620 012637 000004 31$: MOV (SP)+,4 :ALL THIS JUNK MUST BE REMOVED!! 
(2) 016624 005037 017252 CLR SAERR 

(2) 016630 004537 017254 JSR RS, $LOAD :LOAD MICRO-CODE. 

(2) 016634 0000006 .WORD ORLPX2 “FILE ‘'DRLPX2.0BJ"" 

2) 016636 052777 040000 162570 BIS WBIT14,QKMADO  ;ISSUE KMC+DMC INIT. 

(2) 016644 1$ 

(2) HANGS’ HERE THEN KMC-11 ERROR. 
(2) 016644 010146 MOV R1,-(SP) 

(2) 016646 005001 CLR R1 

(2) 016650 005201 2$: INC R1 -STALL. FOR DMC-UP 

(2) 016652 001376 BNE 2$ 

(2) 016654 012777 104000 162552 MOV WB1T15'B1T11,aKMADO -SET RUN, AND ENABLE ARBITRATION. 
(2) 016662 105201 25$: INCB_ Ri 

(2) 016664 001376 BNE 25$ 

(2) 016666 032777 000040 162540 BIT WBITS,Q@KMADO ——- ; SLAVE READY? (READING IPBM SR) 
(2) 016674 001401 BEQ 3$ 

(2) sFATAL LPA-11 ERROR SLAVE NOT READY. 
(2) 016676 104000 ERROR 

(2) 016700 012777 000004 162532 3%: MOV #4 ,AKMAD2 :READ FAST PATH 

(2) 016706 4$: 

(3) 016706 004537 020164 JSR RS, $TOUT :=TOUT-CHECK FOR TIMEOUT 

(3) 016712 104000 ERROR : /TIME-OUT ERROR 

(3) -/WE FAILED TO COMPLETE 

(3) -/CURRENT OPERATION. 

(3) :/CONTINUES IN THIS LOOP 

3) */WOULD MAKE US HANG’ HERE 

(3) 016714 000774 BR 4$ 

(3) : /RETURNS HERE-FROM-TIMED OUT. 
(2) 016716 122777 000377 162514 CMPB 0s #'377, @AKMAD2 “WAIT TILL KMC DONE COMMAND. 

(2) 016724 001370 BNE 4$ , 
(2) 016726 122777 000377 162510 (MPR s#' 377, @KMAD4 -1F FAST PATH=377 THEN ERROR. 
(2) 016734 001001 BNE 35$ 

(2) 016736 104000 ERROR -I1PBM ERROR (SLAVE SIDE) 

(2) “YOU MUST RUN IPBM DIAGNOSTIC. 
(2) 016740 117737 162500 017220 35%:  MOVB  @KMAD4,11$ -GET THE VERSION NUMBER FROM DMC-11 
(2) 016746 005227 177777 INC #-1 

(2) 016752 001045 BNE 5$ 

(2) 016754 005227 177777 INC #1 

(2) 016760 001042 BNE 5$ 


mm ne —-—-l e 
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P11 


16762 
16766 
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017152 


017160 
017160 


017164 


017166 


017170 


017206 
017212 
017214 
017216 


017220 


104401 
000426 


013746 
104403 
02 


004537 
104000 


000774 


122777 


000000 


112777 
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016770 


017220 


000 
017062 


177777 
000000 
017220 


017222 
000002 
000002 


020164 


000377 
162240 


017252 


000003 


eee ee ee eee 
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017220 


162326 


162264 
162260 


162242 


162210 
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TYPE 67$ ss TYPE ASCIZ STRING 
& 6$ :;GET OVER THE ASCIZ 
ASCIZ <200>''M8200-YC (DMC) MICROCODE VERSION NUMBER = ‘’ 
V 11$,-(SP) 
TYPOS 
BYTE 2,0 
TYPE ,69% +; TYPE ASCIZ STRING 
R 68$ : GET OVER THE ASCIZ 
ASCIZ <200>"" "’ 
MOVB #0-1,11$% :DAC CODE FOR SLAVE. 
MOV (5)+.R1 “GET NEXT DEVICE ADDR. 
CMP (R1) #0 “TERM REACHED? 
BEQ 10$ 
INCB «11 
MOVB  11$,a@KMAD4 :FIFO DATA 
JSR PC, 20$ “ISSUE SEND 
MOVB  (Ri)+,a@KMAD4  :SEND LOW BYTE OF DEVICE ADDR TO SLAVE. 
JSR PC,20$ “ISSUE SEND 
MOVB (Ri)+,a@KMAD4 SEND HIGH BYTE OF DEVICE ADDR. TO SLAVE. 
JSR PC 2 
BIT #BIT1,aKMADO —- ; WAIT FOR FIFO DATA 
BNE 7$ :=1 NO DATA. =0 DATA. 


MOVB #2,aKMAD2 ;READ FIFO. 


JSR R5, $TOUT ;*TOUT-CHECK FOR TIMEOUT 


ERROR ;/TIME-OUT ERROR 
;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 
;/CONTINUES IN THIS LOOP 
;/WOULD MAKE US ‘‘HANG'’ HERE 
BR 8$ 


;/RETURNS HERE-FROM-TIMED OUT. 


CMPB | (hlemmataat ;WAIT FOR READ. 


E 8 
TSTB @KMAD4 ;WAS A ZERO RETURNED? 
BEQ 6$ ;YES GET NEXT ADDR. 

| SLAVE WILL aig Vom 0 IF 


INC SAERR ;DEV PRESENT. L 

EXIT SAERR=1 IF SLAVE GIVES ERROR. 
CLR -(1) ;GET RID OF REFERENCE TO BAD ADDR. 
MOV (S$P)+,R1 
RTS R5 ;RETURN ALL ADDR. CHECKED. 
-WORD 0 ;HOLDS DAC CODE PLUS OFFSET 


;TO SLAVES ADDR. TABLE. 


MOVB #3, aKMAD2 ; ISSUE FIFO WRITE 


——— et ee a ee ee en 
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‘CRLPKC. P11: 14-AUG-80 13:59 COMMUNICATIONS ROUTINE SEQ 0075 
| (3) 017230 004537 020164 JSR RS, $TOUT -=TOUT=CHECK FOR TIMEOUT 
(3) 017234 104000 ERROR ;/ TIMEOUT ERROR 
(3) “/WE FAILED 10, COMPLETE 
(3) = /CURRENT OPERATION 
(3) ;/CONTINUES IN THIS LOOP 
(3) “/WOULD MAKE US "HANG'’ HERE 
(3) 017236 000774 BR 21$ 
(3) : /RETURNS HERE=FROM-TIMED OUT. 
(2) 017240 122777 000377 162172 CMPB  —s- #377, ,@KMAD2 “KMC CODE WILL RETURN A ''377"' 
(2) 017246 001370 BNE 21$ “WHEN DONE COMMAND. 
(2) 017250 000207 RTS PC 
is) 017252 000000 SAERR: .WORD 0 :=0 IF ADDR. LIST OK,=1 IF BAD. 
(2) 
(2) THIS SUB CODE USED TO LOAD MICRO-CODE INTO LPA-11. 
(2) st CAL R5,$LOAD 
(2) 3* ORD sADDR. OF MICRO CODE. 
(2) ;* RET URNS HERE 
+f ;* NOTE: MICRO CODE FILE MUST END IN -1 DATA. 
;* 
(2) 
(2) 017254 010446 $SLOAD: MOV R4,-(SP) >SAVE R4. 
(2) 017256 010046 MOV RO,-(SP) “SAVE RO. 
(2) 017260 012500 1$: MOV (5)+,R0 “GET PROG. ADDR. 
(2) 017262 005077 162146 CLR akMADO “CLEAR CSR 
(2) 17266 005077 162152 CLR @kKMAD4 sCLEAR CRAM ADDR. 
(2) 017272 052777 002000 162134 2$: BIS #2000, aKMADO sSELECT CRAM. 
(2) 17300 012077 162144 MOV (0)+ aKMADO sWRITE DATA. 
(2) 017304 052777 020000 162122 BIS #20000, QKMADO :SET CRAM WRITE 
(2) 017312 005077 162116 CLR aKm “DISABLE CRAM. 
(2) 017316 005277 162122 INC ee “UPDATE CRAM ADDR. 
(2) 017322 021027 177777 CMP (0) ,#-1 “ALL DONE? 
(2) 017326 001361 BNE 2$ "NO LOOP. 
(2) 017330 005077 162110 CLR aKkMAD4 sCLEAR CRAM ADDR. 
(2) 017334 016500 177776 MOV -2(5),RO “GET MICRO CODE ADDR. 
(2) 017340 052777 002000 162066 38: BIS #2000,@KMADO =; SELECT. CRAM 
(2) 017346 022077 162076 CMP (RO)+.@KMAD6 =: DATA OK? 
(2) 017352 001013 BNE 5% "NO = REPORT AN ERROR. 
(2) 017354 021027 177777 CMP (0), #1 “ALL DONE? 
(2) 017360 001405 BEQ 4$ “YES = EXIT 
(2) 017362 005077 162046 CLR aKMADO "NO - DESELECT CRAM. 
(2) 017366 005277 162052 INC @KkMAD4 “UPDATE CRAM ADDR. 
(2) 017372 000762 BR 3$ 
(2) 017374 012600 4$: MOV (SP)+,RO sRESTORE RO 
(2) 017376 012604 MOV (SP)+_.RG “RESTORE R4 
(2) 017400 205 RTS R “EXIT 
(2) 017402 S$: :COME HERE ON LOAD ERROR 
(2) 017402 005745 TST -(5) 
(2) 017404 105204 INCB RG “UPDATE ERROR COUNTER. 
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(2) 017406 100324 BPL 1$ :I1F NOT TOO MANY, TRY AGAIN. 
(2) 017410 000000 HALT :MICRO CODE LOAD ERROR. 
(2) “KMC=11 FAULT. YOU COULD TRY 
(2) 017412 000722 BR 1$ "TO PRESS CONTINUE TO GIVE IT 
(2) “ANOTHER CHANCE, BUT I DOUBT 
(2) “THAT THAT WOULD WORK. SINCE I'VE 
(2) “ALREADY GIVEN IT 177 (OCTAL) CHANCES. 
(2) "TRY RUNNING THE KMC-11 DIAGNOSTIC. 
(33 
2) “#THIS ROUTINE ISSUES A WRITE COMMAND TO THE LPA-11 
*® 
(2) :a CALL = JSR RS, $TLKW 
(2) ;* .WORD 0 sOFFSET OF DEVICE ADDR. 
as ;* ~WORD 0 :DATA TO BE WRITTEN 
;* 
(2) 017414 010046 STLKW: MOV RO,-(SP) :SAVE RO 
(2) 017416 012500 MOV (5)+,R0 “GET DEVICE OFFSET 
(2) 017420 052700 000340 BIS #340,R0 “ADD WRITE CODE. 
(2) 017424 004737 017676 JSR PC, $LPW “WAIT FOR FAST PATH READY 
(2) 017430 010037 017522 MOV RO,W1 
(2) 017434 010077 162004 MOV RO, aKMAD4 
(2) 017440 112777 000005 161772 MOVB #5,aKMAD2 - ISSUE FAST PATH WRITE 
(2) 017446 004737 017676 JSR PC, S$LPW “WAIT FOR RDY 
(2) 017452 011537 017524 MOV (5) ,W2 
(2) 017456 112577 161762 MOVB  (5)+,aKMAD4 “WRITE LOW BYTE DATA. 
(2) 017462 112777 000605 161750 MOVB #5,aKMAD2 -FP WRITE 
(2) 017470 004737 017676 JSR $LPW 
(2) 017474 111537 017526 MOVB 5) ,W3 
(2) 017500 112577 161740 MOVB  (5)+,aKMAD4 :WRITE HIGH BYTE 
(2) 017504 112777 000005 161726 MOVB #5,aKMAD2 
(2) 017512 004737 017676 JSR PC, S$LPW 
(2) 017516 012600 MOV (SP)+,RO 
(2) 017520 000205 RTS R5 :EXIT DONE. 
(2) 017522 000000 Wi: 0 
(2) 017524 000000 W2: 0 
(2) 017526 000000 W3: 0 
(5) 
*® 
(2) “*THIS ROUTINE ISSUES A READ COMMAND TO THE LPA-11 
** 
(2) :* CALL = JSR RS, STLKR 
(2) :* .WORD 0 -OFFSET OF DEVICE 
(2) 3% sRETURNS HERE 
(2) **DATA IN WORD SDATR 
Ht . 
(2) 017530 010046 $TLKR: MOV RO,-(SP) ;SAVE RO 
(2) 017532 012500 MOV (55+,RO “GET OFFSET 
(2) 017534 052700 000300 BIS #300,R0 “ADD READ CODE 
(2) 017540 004737 017676 JSR PC, SLPW “WAIT TILL READY 
(2) 017544 110077 161674 | mMOVA RO, @KMADG 
(2) 017550 112777 § 161662 MOVB #5, aKMAD2 : ISSUE WRITE FP 
(2) 017556 004737 017676 JSR PC, SLPW 


; 
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3 017562 010037 017672 “ MOV RO,RD1 

(3) 017566 004537 020164 JSR RS, $TOUT -@TOUT=CHECK FOR TIMEOUT 

(3) 017572 104000 ERROR :/ TIMEOUT ERROR 

(3) /WE FAILED TO COMPLETE 

(3) :/ CURRENT OPERATION. 

(3) -/CONTINUES IN THIS LOOP 

(3) /WOULD MAKE US HANG" HERE 
(3) 017574 000774 BR 1$ 

(3) : /RETURNS HERE=FROM-TIMED OUT. 
(2) 017576 032777 000040 161630 BIT #BITS,aKMADO FAST PATH GOT DATA? 

(2) 017604 001370 BNE 

(2) 017606 M2777 000004 161624 MOVB  #4,aKMAD2 : ISSUE FAST PATH READ 

(2) 017614 004737 017676 JSR PC .SLPW 

(2) 017620 117737 161620 017674 MOVB aKMADG,$DATR = ;GET LOW BYTE 

(3) 017626 004537 020164 JSR RS, $TOUT :=TOUT=CHECK FOR TIMEOUT 

(3) 017632 104000 ERROR ;/ TIMEOUT ERROR 

(3) “/WE FAILED TO COMPLETE 

(3) “/CURRENT OPERATION. 

(3) :/CONTINUES IN THIS LOOP 

(3) ‘/WOULD MAKE US HANG" HERE 
(3) 017634 000774 BR 2$ | 
(3) - /RETURNS HERE-FROM-TIMED OUT. 
(2) 017636 032777 000040 161570 BIT WBITS,@KMADO : FAST PATH READY? 

(2) 017644 001370 BNE 2$ 

(2) 017646 112777 000004 161564 MOVB #4,@KMAD2 : ISSUE FAST PATH READ 

(2) 017654 004737 017676 JSR PC. SLPW 

(2) 017660 117737 161560 017675 MOVB §@KMAD4,$DATR+1. ;SAVE HIGH BYTE 

(2) 017666 012600 MOV (SP)+,RO 

(2) 017670 000205 RTS R5 

(2) 017672 000000 RD1: O 

(2) 017674 000000 $DATR: .WORD 0 

(2) “THIS ROUTINE WAITS FOR KMC-CODE TO BECOME READY AS WELL 
(2) “AS FAST PATH TO BE READ. 

(2) : CALL = JSR PC, $LPW 

(2) “IT WILL TIME OUT IF TOO MUCH TIME IS TAKEN BY 

2) “THE MICRO-PROCESSORS AND REPORT AN ERROR, THEN HALT. 
(2) 

(2) 017676 010146 $LPW: MOV R1,-(SP) SAVE R1 

(2) 017700 005001 CLR R1 

(2) 017702 122777 000377 161530 1$: CMPB  so#'377 , @KMAD2 :FINISHED INSTRUCTION? 

(2) 017710 001403 BEQ 2$ 

(2) 017712 005201 INC R1 :TIME OUT? 

(2) 017714 001372 BNE 1$ 

(2) 017716 000411 BR 108 
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(2) : , 

(33 017720 032777 000020 161506 2$: ° BIT #B1T4,aKMADO :FAST PATH READ? 

ig) 017726 001403 BEQ 3$ 

(2) 017730 005201 INC R1 :NO = TIME OUT? 

(2) 017732 001372 BNE 23 

(3) 017734 000402 BR 10$ -YES = REPORT AN ERROR 

(2) 017736 012601 3$: MOV (SP)+,R1 sRESTORE R1 

(3) 017740 207 RTS PC sEXIT 

(2) 017742 10$: 

(3) 017742 104401 017750 TYPE oe" ; 3 TYPE ASCIZ STRING 

(3) 017746 0004 R “GET OVER THE ASCIZ 

(3) ::65$: .ASCIZ eS DO>eLPAS11 FAULTA 

tt 017766 64$: 

(2) 017766 000000 118: HALT sLPA-11 FAULT RUN LPA-11 

(2) 017770 000776 BR 11$ : DIAGNOSTICS. 

(2) 

(33 

(2) THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE TO 

(2) A DEVICE ADDRESS ON THE 1/0 BUSS FOR WRITE ONLY. 

(2) .. FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN USED 

(2) ** BEFORE. IF NOT WE HAVE TO INITIALIZE THE LPA WITH 

(2) -* THAT ADOR 

hs :* ae THE ADDR. IS KNOWN BY THE LPA, DO THE OUTPUT BY 
oe 

i ; 

(Z2) 017772 010046 SOUTLP: MOV RO,-(SP) :SAVE RO’ 

(2) 017774 010146 MOV R1,-(SP) >SAVE R1 

(2) 017776 012700 001462 MOV #.DVLS,RO :PROGRAM DEFINED LIST. 

(2) 020002 005001 CLR R1 

(2) 020004 005710 1$: TST (0) : TERMINATOR REACHED? 

(2) 020006 001421 BEQ 10$ “YES NEXT STEP. 

(2) 020010 027520 000000 CMP a(5),(0)+ “MATCH WITH ADDR IN LIST? 

(2) 020014 001402 BEQ 2$ 

(2) .020016 005201 INC R1 

Ss 020020 000771 BR 1$ 

(2) 020022 010137 020040 2$: R1,3$ :SAVE OFFSET, DEVICE KNOWN. 

(2) 020026 005725 TST (5)+¢ 

(2). 020030 013537 020042 MOV a(5)+,4$ :GET ATA TO BE WRITTEN 

(2) 020034 004537 017414 JSR RS,$STLKW -DO WRITE 

(2) 020040 000000 33: WORD 0 DEVICE OFFSET 

(2) 020042 000000 4$: .WORD 0 :DATA TO BE WRITTEN. 

(2) 020044 012601 MOV (SP)+,R1 

(2) 020046 012600 MOV (SP)+,RO 

(2) 020050 eget RTS R5 

(2) 020052 017520 000000 10$: MOV a(5),(0)+ >SAVE ADDR. 

(2) Sate 003019 CLR (0) 

(2) 0 004537 016564 JSR RS,SLPAI 
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(2) 020064 001462 WORD .DVLS 
(2) 020066 0007 BR 2$ 
(53 
;® 
(2) -*THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE 
ts -*T0 A DEVICE ADDR. ON THE 1/0 BUSS FOR READ ONLY. 
;* 
(2) -*FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN 
(2) **USED BEFORE. IF NOT, WE HAVE TO INITIALIZE THE LPA 
(2) s*WITH THE NEW ADDR. 
(2) -#WHEN THE ADDR IS KNOWN WE CAN DO OUTPUT THROUGH 
(2) :*$TLKR 
(2) ;* CALL THROUGH ## MOVEI DATA,ADDR. 
(2) ;* WHICH EQUALS: 
(2) ;* JSR RS,SINLP 
(2) ;* WORD XX ADDR OF DEVICE 
if ;* WORD YY ADDR TO STORE READ DATA. 
(2) 020070 010046 SINLP: MOV RO,-(SP) :SAVE RO 
(2) 020072 010146 MOV R1,-(SP) >SAVE R1 
(2) 020074 012700 001462 MOV #.DVLS,RO :PROG DEFINED ADDR. LIST. 
(2) 020100 005001 ; CLR R1 
(2) 020102 005710 1$: TST (0) sEOL REACHED? 
(2) 020104 001420 BEQ 10$ :YES = DEFINE NEW ADDR. 
(2) 020106 027520 000000 CMP a(5),(0)+ sADDR. MATCH? 
(2) 020112 001402 BEQ 2$ 
(2) 020114 005201 INC R1 
(2) 020116 000771 BR 1$ 
(2) 020120 010137 020132 2$: MOV R1,3$ :SAVE LIST OFFSET 
(2g) 020124 005725 TST (5)+ 
(2) 020126 004537 017530 JSR RS,STLKR :GO READ DEVICE 
(2) 020132 SOFS=. 
(2) 020132 000000 3$: WORD 0 sOFFSET OF DEVICE 
(2) 020134 013735 017674 MOV SDATR,a(5)+ sSTORE DATA. 
(2) 020140 012601 MOV (SP)+,R1 >RESTORE R1 
(2) 020142 012600 MOV (SP)+,RO sRESTORE R2 
(2) 020144 000205 RTS R5 EXIT 
(2) 020146 017520 000000 10$: MOV a(5),(0)+ 
(2) 020152 005010 CLR (0) 
(2) 020154 004537 016564 JSR R5,$LPAIL 
(2) 020160 001462 WORD .DVLS 
(2) 020162 000756 BR 
;* 
(2) :*$TOUT ROUTINE USED TO WATCH IF 
(2) ;t WE'RE IN A LOOP TOO-LONG 
(2) st CALL= JSR RS, $TOUT 
( ;t ERROR x *RETURNS HERE ON TIMEOUT 
;* 
(2) +t sRETURNS HERE NO ERROR 
3 : 
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(2) 020166 020537 020220 $TOUT: CMP RS,SSAD :SAME ADDR? 
(2) 020170 0014 3 BEQ 1$ 
(2) 020172 010537 020220 MOV RS, SSAD :NO=SAVE THIS ADDR. 
(2) 020176 005037 020222 CLR SCNT “CLR CNT AT ADDR. 
(2) 020202 000403 BR 2$ 
(2) 020204 005237 020222 1$: INC SCNT : OVERFLOW? 
(2) 020210 100402 BMI 3$ *YES=ERROR RETURN 
(2) 020212 062705 000004 2$: ADD #4 ,R5 *NO-NON ERROR RETURN 
(2) 020216 000205 3$: RTS R5 “RETURN. 
(2) 020220 000000 $SAD: .WORD 0 sCONTAINS LOOP ADDR. - 
(2) 020222 000000 SCNT: .WORD 0 :# OF TIMES AT ADDR. 
(2) se 
(2) >* THIS ROUTINE REPLACES WHAT THE USER WOULD ORDINARILY 
(2) 7*USE FOR A RESET. FIRST,WE DO A RESET INSTRUCTION. 
(2) **#THEN WE CLR ''.DVLST' WHICH FORCES US TO RESET BOTH THE 
(2) 5 #KMC AND DMC AS SOON AS A DEVICE IS REFERENCED. 
(2) ie CALL=JSR PC, SRESET sREPLACES RESET INSTRUCTION 
it :* > RETURNS HERE. 
;* 
(2) 020224 000005 SRESET: RESET -RESET THE WORLD. 
(3) . =" MOV Q2$,1$ ;/READ DEVICE REG 2$,PUT DATA IN 1S. 
(2) 020236 005737 017252 TST SAERR -1F NO ERROR,LOO 
(2) 020242 001004 BNE 10$ “THERE WAS AN ERROR. 
(2) 020244 062737 000002 020260 ADD #2,2% ; UPDATE DEVICE ADDR 
(2) SEE .WE HAVE TO PROTECT OUR SELF! 
(2) a: 2$ CONTAINED A VALID ADDR,W 
(2) “MUST KEEP TRYING UNTIL WE GENERATE 
(2) :AN INVALID ADDR. 
(2) 020252 000764 BR SRESET 
(2) 020254 10$: 
(2) 020254 000207 RTS PC 
(2) 020256 000000 1$: .WORD 0 : JUNK LOC. 
(2) 020260 160000 2$: .WORD 160000 “DUMB ADDR. FORCES INIT OF DMC/KMC. 
@ 
(2) : SDELAY- ROUTINE TO GIVE A MINOR DELAY. 
(2) 4 1S NOT TIME DEPENDENT CODE SENCE 
(2) ; NOT USED TO GET SPECIFIC TIME BUT 
(2) ; JUST A LITTLE DELAY. 
(2) : THAT IS UNLESS A REAL TIME CLOCK IS PRESENT! 
(2) ; THEN WE'LL GENERATE A TIME BETWEEN 16MS TO 32 MS 
(2) 
3; ; CALL= JSR PC, SDELAY 
(2) 020262 SDELAY: 
(2) 020262 005737 020344 TST RTCCSR -CLOCK PRESENT? 
(2) 020266 100016 BPL 10$ 
(2) 020270 012737 000002 020334 MOV #2, TIME 
(2) 020276 052777 000115 000040 BIS wiiS,aRTCCSR | ;START CLOCK 
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| (2) fat 005037 177776 CLR PS 
| 2) 020310 005737 020334 1$: TST TIME 
(2) 020314 001375 BNE 1$ 
tg) 020316 005077 000022 CLR @RTCCSR :STOP CLOCK 
(2) 020322 000207 RTS PC 
(2) 020326 105237 020334 10$: INCB. TIME 
(2) 020330 001375 BNE 10$ 
ts} 020332 000207 RTS PC 
tg) 020334 000000 TIME: -WORD 0 
(2) 0336 005337 020334 CLKINT: DEC TIME 
(2) 020342 000002 RT] 
(2) 020344 000000 RTCCSR: .WORD 0 “CLOCK CSR IF USED. 
(2) * 
(2) THIS MACRO ALLOWS THE OPERATOR TO TALK TO 
(2) “ANY DEVICE ON THE 1/0 BUS 
(2) : USER MUST START AT THIS ADDR 
(2) — MUST SAY EITHER ‘'E’’ FOR EXAMINE, OR "'D'’ FOR DEPOSIT. 
(2) ee” TS D FAULT. 
(2) : *NEXT, We eaust SUPPLY AN ADDR. 
(2) “*NOTE IF ADDR. 1S NOT FOUND ON I/O BUS, A HALT 
ji “*WILL OCCUR. 
(2) 020346 SUTK: 
(2) 020346 005037 001462 CLR .DVLS 
(2) 020352 21$: 
(3) 020352 104401 020360 TYPE ,65$ :; TYPE ASCIZ STRING 
(3) 020356 000405 BR 64$ :<GET OVER THE ASCIZ 
(3) -:65$: .ASCIZ <200>#E OR D2” 
(3) 020372 64$: 
(2) 020372 105777 160546 1$: TST asTKs 
(2) 020376 100375 BPI 1$ 
(2) 020400 117737 160542 020522 MOVB asTKB,20$ :GET INP 
(2) 20406 104401 020522 TYPE, 20% -ECHO, EXT MESSAGE. 
(2) 020412 142737 000240 020522 BICB #240,20$% : STRIP PARITY, LC 
(2) 020420 104410 RDOCT “GET ADDR. 
(2) 020422 012637 020520 MOV (SP)+,14$ 
(2) 020426 123727 020522 000104 CMPBs«e208, #D :DEPOSIT? 
(2) 020434 001411 BEQ 10$ 
(2) 36 004537 020070 JSR RS,SINLP :GET DATA 
(2) 020442 020520 23: -WORD 14% 
‘¢) 020444 020456 WORD 5% 
(3) 020446 013746 020456 MOV 5$,-(SP) >: SAVE 5$ FOR TYPEOUT 
(3) 020452 104402 TYPOC :°GO TYPE--OCTAL ASCII(ALL DIGITS) 
(2) 020454 000736 AR 21$ :LOOP. 
5 020456 000000 5$: .WORD 0 
(2) 020460 10$: 
(3) 020460 104401 020466 TYPE ,67% >; TYPE ASCIZ STRING 
(3) 020464 000404 BR 66$ ":GET OVER THE ASCIZ 
(3) -:67$: .ASCIZ <200>#DATA= @ 
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| (3) 020476 66$: 
| (2) 020676 104410 RDOCT 
(2) 020500 012637 020516 MOV =: (SP) +, 138 
(2) 020504 004537 017772 11$: JSR RS, SOUTLP -OUTPUT ROUTINE. 
(2) 020510 020520 128: .WORD = 14 “DEVICE ADDR. 
(2) 920512 020516 .WORD 13% sDATA 
(2) 020514 000716 BR 21$ 
(2) 020516 000000 13$ ~WORD 0 
(2) 020529 000000 14$: -WORD 0 
(2) 020522 100001 042504 044526 208: eASCIZ <1><200>#DEVICE ADDR= # 
(2) 020530 042503 040440 042104 
(2) 020536 036522 000040 
(2) EVEN 
(2) 
(1) 
3 
(2) “THIS ROUTINE LOOKS THROUGH CURENT .DVLS FOR A/D ADDR. 
(2) “IF UNFOUND, GENERATES IT. THIS ROUTINE'S WHOLE PURPOSE IS 
(2) "TO SET UP THE USER PROGRAM TO LINK TO FILE ‘DRLPX2"’ FOR 
(2) : SAMPLE TAKE ING PURPOSES. 
(2) : TO TAKE SAMPLES, THE USER PROGRAM MUST SET UP 
(2) : A/D CSR IN BSEL 4,AND 5. 
(2) ; (2) HE MUST CALL THIS ROUTINE: 
(2) : JSR R5,$PUTS :CALL SET UP ROUTINE. 
(2) : .WORD ADCSR DDR. OF A/D CSR. 
(2) : “RETURNS HERE ;KMC BSEL ;" B 7 PERMINENTLY SET UP 
ts) ; : (UNTILL ONE DOES A RESET) 
(2) : (3)THE USER MUST PUT CODE 006 INTO KMC REG 2 TO 
(2) : START CONVERSION CAUTION®DO WITH MOVB INSTR.! 
(2) : (4)MONITOR KMC REG 2 FOR CODE 377 (DRLPX2 IS DONE) 
(2) : (S)READ KMC RES 4,5 FOR A/D RESULT 
(2) : (6) TO TAKE MORE SAMPLES, SIMPLY PUT A/D CSR INTO 
() ; BSEL 4,5 AND CODE 6 INTO BSEL 2. 
(2) 020542 012537 020552 $PUTS: MOV (5)+,1$ -GET ADDR OF ADDR. OF A/D 
(2) 020546 004537 020070 JSR RS, SINLP 
(2) 020552 000000 1$: WORD 0 
(2) 020554 020650 .WORD 10% 
(2) 020556 113777 020132 160664 MOVB SOFS,aKMAD6 
(2) 020564 113777 020132 160660 MOVB  $OFS,aKMAD7 
(2) 020572 013737 020552 020612 MOV 1$,2$ 
(2) 020600 062737 000002 020612 ADD #2,23 
(2) 020606 004537 020070 JSR RS,SINLP 
(2) 020612 000000 2$: -WORD 0 
(2) 020614 020650 -WORD 10% 
(2) 020616 113777 020132 160616 MOVB  $OFS,a@KMAD3 
(2) 020624 152777 000340 160616 BISB #340, aKMAD6 
(2) 020632 152777 000300 160612 B1SB #300 ,aKMAD7 
(2) 020640 152777 000300 160574 BISB #300 ,aKMAD3 
(2) 020646 000205 RTS R5 
+s 020650 000000 108: .WORD 0 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


setae erererearererereeeeeeererereneeeereneeereneeeeeeererererere 


;*THIS ROUTINE IS USED TO ae A 16-BIT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER AND 


YPE IT. 
*$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:*CALL: 
*@ 
** 
*? 
°@ 
** 
‘® 


*@ 


;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


NUM ,-(SP) 


:*$TYPOS OR S$TYPOC 


-*CALL: 


;* 
*® 


*CALL 


STYPGS: 


STYPOC: 
STYPON: 


1$: 
2$: 


3$: 


MOV 
TYPOC 


MOV 
ON 


NUM, = (SP) 


NUM ,-(SP) 


-@CSP),-(SP) - 


1(SP) ,SOFILL 
(SP)+,S$0MODE+1 
2, (SP) 

STYPON 

#1,S0F ILL 

1 ee le 


R 
SOMODE 


;NUMBER TO BE TYPED 
:5CALL Ae TYPE 


OUT 
OR 0 FOR NUMBER OF DIGITS TO TYPE 


;1=TYPE LEADING ZEROS 
: !O=SUPPRESS LEADING ZEROS 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


-* 
> *$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


; NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


:FLOAD-2 THE MODE - © -0) - eee wee 


ADJUST RETURN ADDRESS 


:;SET THE ZERO FILL SWITCH 
>;SET FOR SIX(6) DIGITS 
seSel ys ITERATION COUNT 


7; SAVE R 


R5 
;:;GET THE NUMBER OF DIGITS TO TYPE 


:; SUBTRACT IT FOR MAX. ALLOWED 

>;SAVE IT FOR USE 

>:GET THE ZERO FILL SWITCH 

+ sPICKUP THE INPUT NUMBER 
;CLEAR THE OUTPUT WORD 

; sROTATE MSB INTO ‘’C"’ 


;GO DO MSB 
:;FORM THIS DIGIT 


;;GET LSB OF 4} — 
: 3 TYPE THIS DIGIT? 


;BR IF NO 
;3GET at OF JUNK 
T FOR Q 
tat THIS 0? 
IF YES 


SEQ 0085 


LPA-ADI1K TEST MD-11-CRLPKC 
CRLPKC.P11 


oe eee es - 
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TD we wee wee ee ee eee ee ee ee ee ee ee ae ee es ae te 


ee ee ee ee ee a a ee et ee ee et ee ee ee eee ee ee ee 


Oo 
~m 
> 
BEER SSSSSS 
OP SMAOVMASIWS & 


021076 


© 
™m 
—b 


i ] 
™—N 
el el el el el el ee ee ee ee ed ed od aed od 
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000002 


020200 
000020 


000055 


021314 
000040 


021304 


MACY11 306(1063) 
BINARY TO OCTAL (ASCII) AND TYPE 


000004 


000001 


G 7 
24-OCT-80 09:48 PAGE 43-14 


4$: INC 
BIS #'0,R3 

S$: BIS #’ -R3 
MOVB R83, 8S 
TYPE a$ 

7$: DECB  =—-« SOCNT 
BGT 2$ 
BLT 6$ 
INC RL 
BR 2$ 

6$: MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV 2(SP),4(SP) 
MOV (SP)+, (SP) 
RTI 

8$: BYTE O 
BYTE OQ 

SOCNT: .BYTE 0 

SOF ILL BYTE 0 

SOMODE : 0 


SEQ 0084 


;;DON'T SUPPRESS ANYMORE 0°S 
ee THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
: SAVE FOR TYPING 
+360 TYPE THIS DIGIT 
;;COUNT BY 1 
;;BR IF MORE TO DO 
;;BR IF DONE 
; + INSURE LAST DIGIT ta T A BLANK 
;:60 DO Ba enn DIGIT 


ORE R3 
;;SET THE STACK FOR RETURNING 


7 RETURN 
:;STORAGE FOR ASCII DIGIT 
:; TERMINATOR FOR TYPE ROUTINE 
;;0CTAL DIGIT COUNTER 
+3 ZERO FILL SWITCH 
OF DIGITS TO TYPE 


; NUMBER 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


Seeeeeeeeeeeeeeeeeeeeeeeeeeeeteeneeeteneereeerenerereneeeererere 
THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

+ *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


*CALL 


STYPDS: 


1$: 


23: 
3$: 


4$: 


MOV 
TYPDS 


——e -—se -«-—- -——=— ——————— or ee + -- 


:*REPLACED WITH SPACES. 


NUM ,-(SP) 


RO,-(SP) 
R1,-(SP) 


R5,-(SP) 
#20200,-(SP) 
20(SP).RS 


e 
-,1(SP) 
rS0BLK R3 


(R3)¢ 
R2 
SDTBL(RO),R1 
R1,R5 


4$ 
R2 


;;PUT THE BINARY NUMBER ON THE STACK 
::G0 TO THE ROUTINE 


:;PUSH RO ON STACK 
; = PUSH R1 ON STACK 

;PUSH R2 ON STACK 
; ; PUSH R3 ON STACK 

;PUSH RS ON STACK 
SET BLANK SWITCH AND SIGN 
;:GET THE INPUT NUMBER 
::BR IF INPUT IS POS. 
::MAKE THE BINARY NUMBER POS. 
:;MAKE THE ASCII NUMBER NEG. 
;;ZERO THE CONSTANTS INDEX 
;:;SETUP THE OUTPUT POINTER 
::SET THE FIRST CHARACTER TO A BLANK 
:: CLEAR THE BCD - eee 
;:;GET THE CONSTAN 
::FORM THIS BCD DIGIT 


:;BR IF DONE 
>: INCREASE THE BCD DIGIT BY 1 
::ADD BACK THE CONSTANT 


;: CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF 0 


wn , 7 
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CRLPKC.°11 14-AUG-80 13:59 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0085 
(1) SEES 105716 TSTB (SP) ::;STILL DOING LEADING 0°S? 
| (1) 021174 100407 BM! 7$ ::BR IF YES 
| (1) 021176 10631 5$: ASLB (SP) ::MSD0? 
| (1) 021200 10300 BCC 6$ :;8R IF NO 
| (1) 021202 116663 000001 177777 MOVB 1(SP),-1(R3) >: YES--SET THE SIGN 
(1) 021210 052702 000060 6$: BIS #'0,R2 ::;MAKE THE BCD DIGIT ASCII 
(1) 021214 052702 000040 7$: BIS #* ,R2 ::;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 021220 110223 MOVB R2,(R3)+ :;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 021222 005720 TST (RO) + :; JUST INCREMENTING 
(1) 021224 020027 000010 CMP RO,#10 >: CHECK THE TABLE INDEX 
(1) 021230 002746 BLT 2$ ::G0 DO THE NEXT DIGIT 
(1) 021232 003002 BGT 8$ ::G0 TO EXIT 
(1) 021234 010502 MOV R5,R2 ::GET THE LSD 
(1) 021236 000764 BR 6 ::G0 CHANGE TO ASCII 
(1) 021240 105726 8$: TSTB (SP)+ ::;WAS THE LSD THE FIRST NON-ZERO? 
(1) 021242 100003 BPL aE és F NO ‘ 
(1) 021244 116663 177777 177776 MOVB -1(SP),-2(R3) 3;YES--SET THE SIGN FOR TYPING 
(1) 021252 105013 9$: CLRB (R3) :;SET THE TERMINATOR 
(3) 021254 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
(3) 021256 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
(3) 021260 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 021262 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 021264 012600 MOV (SP)+,RO :;POP STACK INTO RO 
(1) 021266 104401 021314 TYPE SDBLK :;NOW TYPE THE NUMBER 
(1) 021272 016666 000002 000004 MCV 5(SP),4(SP) : ;ADJUST THE STACK 
(1) 021300 012616 MOV (SP)+, (SP) 
(1) 021302 000002 RTI > RETURN TO USER 
(1) 021304 023420 $DTBL: 10000. 
(1) 021306 001750 1000. es, Tc ee s -— aon - 
(1) 021310 000144 100. 
(1) 021312 000012 10. 
(1) 021314 000004 $DBLK: .BLKW 4 


ee ee a se ee ee ee ees Oe eee -- - - - _— - -_— — a - . Ce 
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ER SEQ 0086 


CR PR PR PRP PR PR PR OL OPS PL LP Pe PR PR PR PR PR PPP PP Pe Pe PP PLP LP LP PLP LP Le Pe eh he he Om 
i tt i i ti tt titties 


I FN WS MW 


021324 


021346 
021350 
021356 


021566 
021370 
021372 


021374 


011646 
016666 
000002 


021346 


tt rr 
~M yy +7 ~—™N 
PE EWw 
OOAON™N 


ee ed ed ed ed ed wed aed ed 
Wa & & & 


COQOQoQoQooo°o°eoo 
NNO O 


Nm 
—~ 


000002 


021360 


000004 000002 


021546 
000340 


eeeeeeeeeeeeeeeeeeeeeeeeeeeeetereneneeeeeeeeeeerereneeeeeeeeet 
 STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘“‘TRAP’’ INSTRUCTION 
;tAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE-DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:#GO TO THAT ROUTINE. 


STRAP: MOV -RO,-(SP) ;; SAVE RO 
MOV 2(SP),RO ::GET TRAP ADDRESS 
TST -(RO) ;;BACKUP BY 2 
MOVB (RO) ,RO +3GET RIGHT BYTE OF TRAP 
ASL. RO ;POSITION FOR INDEXING 
MOV STRPAD(RO) ,RO INDEX TO TABLE 


RTS RO ;;GO TO ROUTINE 


;:THIS 1S USE TO HANDLE THE ‘'GETPRI*’ MACRO 


STRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 
MOV 4(SP),2(SP) ;:MOVE THE PSW DOWN 
RTI ;;RESTORE THE PSW 


~SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE — ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION 


; ROUTINE 


$TRPAD: .WORD $TRAP2 


TTY TYPEOUT ROUTINE 


STYPE ;;CALL=TYPE TRAP+1(104401) 

STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON TRAP#+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL? 
STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 

SRDCHR ;;CALL=RDCHR he hb ope. TTY TYPEIN CHARACTER ROUTINE 


SRDLIN +3 CALL= ROLIN TRAP#7(104407) TTY TYPEIN STRING ROUTINE 
SRDOCT ;;CALL=RDOCT TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
.SBTTL POWER DOWN AND UP ROUTINES 


SRARARAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAARAKAAAAAAAAARA AKA ATA AAAS 

“POWER DOWN ROUTINE 

$PWRDN: MOV #SILLUP,@#PWRVEC ;;SET FOR FAST UP 
#340, a#PWRVEC+2 ;:PRIO:7 


RO,-(SP) ;;PUSH RO ON STACK 
R1,-(SP) ;;PUSH R1 ON STACK 
R2,-(SP) ;3PUSH R2 ON STACK 
R3,-(SP) :;PUSH R3 ON STACK 
R4,-(SP) ;;PUSH R4& ON STACK 
R5,-(SP) ;;PUSH R5 ON STACK 
yh ;;PUSH @SWR ON STACK 





SP ,SSAVR6 >; SAVE SP 
#SPWRUP ,a#PWRVEC ;;SET UP VECTOR 


LPA-AD11K TEST 
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000310 
042000 
042300 
010000 
000001 
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021402 
000340 


042522 


042522 


MACY11 


000024 


000024 
000026 


es - 
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;;HANG UP 


FRRAKAAAAERAAHTAAAAAAAKAAAeTAAeeKAKKeAKeKeKAKeeeAKeKARArereerese 


306(1063) 
POWER DOWN AND UP ROUT! 
HALT 
BR 2 
POWER UP ROUTINE 
$PWRUP: MOV 
MOV SAVR6, 
CLR SSAVR 
1$: INC SSAVR6 
BNE b 
MOV (SP)+,aSwWR 
MOV P)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,R 
MOV 
MOV 
TYPE 
SPWRMG: .WORD PWRMSG 
MOV (PC) +, (SP) 
SPWRAD: a BEG2 
SILLUP: HALT 
BR .72 
SSAVR6: 0 
PWRMSG: .ASCIZ 


EVEN 
DIST: ~BLKW 


-=42000 
; THE MICRO-CODE 
.=42300 


BUFFER: .BLKW 
.END 


#SILLUP, —— agSeT FOR FAST DOWN 
SSAVR6 SP 


WALT LOOP FOR THE TTY 
+ old a INC 


RD 
; POP STACK INTO ie 


z ST INTO RO 
#SPWRON, Q@#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC +2 ::PRIO:7 


;;REPORT THE POWER FAILURE 
;;POWER FAIL MESSAGE POINTER 
;;RESTART AT BEG2 

;;RESTART ADDRESS 


ets POWER UP SEQUENCE WAS STARTED 
be tee et POWER DOWN WAS COMPLETE 


Put T HERE 
£15><12>/RESTARTING AFTER A POWER FAILURE/<15><12> 


200. 


;STATE-WIDTH DISTRIBUTION 


FOR THIS PROGRAM RESIDES HERE. 


4096. 


;BUFFER AREA 


SEQ 0087 


-_—_ mm ew eee eee 
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CRLPKC.P11 14-AUG-80 13:59 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0088 
ABASE = 170400 11654 1223 1264 1265 
ACDW1 = 000000 1353 : 

1933 

12658 1484 1492 1510 1545 1551 1596 1608 1729 1784* 1792 1793* 1861 

1911 1923 1962 2345 2366 | 

1225 

1225 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

1223 

+ 

1223 

1223 

20234 2055 

25044 2508 

750* 1767* 1777* 2505 25064 

225 

225 

223 

223 

225 

225 

225 

223 

325 25164 

223 

223 
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™ 
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So 
so 


# 122 . 1266 
2608 26094 
26094 
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ATESTN= 000000 
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CRLPKC.P11  14=AUG-80 13:59 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0089 
ATMSG 012366 1857 2526" 
AUNIT = 000000 1228 
AUSWR = 122 
AVECTI= 140340 1166# 1223 1267 1305 
AVECT2= 1223 
BASEBR 001322 1266# 1796* 1797s 
BASECH 001332 1270# 1538 1656 1657 1859 1888 1889 20146 2306 2341 2459 
BEGIN 001712 1215 13448 ©2506 te 
BEGINA 005160 1392-17548 
BEGINC 004664 1395 17118 
BEGINL 002716 1445# 1747 1757 
BEGINN 005526 1401 1820# 
BEGINS 005576 1404 18314 
BEGINW 005246 1407-17714 
BEGIN2 001720 1217-1346 
BEGL 005122 1383 «1398 = «17450 
BEG 002402 1216 1322 1380# 2615 | 
BITPNT 001412 1294 1956* 1961 1987 1988 
BITO = 000001 1163@ 1487 1497 ~=—-:1502 
BITOO = 000001 11634 
BITO1 = 000002 11634 
BITO2 = 000004 11634 
BITO3 = 000010 11634 
BITO4 = 000020 11634 
BITOS = 000040 11634 
B1T06 = 000100 11634 
BITO7 = 000200 11634 
BITOB = 000400 11634 2604 
BITO9 = 001000 1163# 2604 2605 
BIT! = 000002 1163# 2610 
BIT10 = 002000 1163# 2605 
BIT11 = 004000 1163# 1950 2604 2610 
BITiz = 010000 1163# 2244 
BIT13 = 020000 1163# 1717 1730 2605 
BIT14 = 040000 1163# 1452 2604 2610 
BIT15 = 100000 1163# 14671 1481 1501 2487 2610 
BIT2 = 000004 11634 
BITS = 000010 11634 
BIT4 = 000020 ~- 1163# 14667 1540 1543 2610 
BITS = 000040 1163# 1462 2610 
BIT6 = 000100 11634 1457 
BIT7 = 000200 1163# 1478 1501 1543 2358 
BIT8 = 0004 11634 1448 
BIT9 = 001 1163# 14676 1504 1542 
BK3 005630 18384 1849 
BPTVEC= 000014 11634 
BUFFER 042300 1997 2040s 2042" 2058 2086 2152 2164 2166 2186 2198 2199 2200 2222 
BUFF1 013755 2134 2568 
BUFF2 014003 2221 25698 
005310 1748 1765 1775 17818 
BYPASS 005462 1789 18030 
B10 011422 24108 2611 
B11 «011456 24208 2621 
CH 012321 1719 25228 
CHAN 012403 2277 25288 
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CRLPKC.P11 _14=AUG-80 13:59 CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0090 
CHANL 001362 12824 1656* 1839" 1912 1967 2250 2251 2278 2305" 2306" 2307 2342* 2593 
CHANNL 007030 201 : 
cH1 001350 1277# 1823" 1824" 1827 1834 1856 1858 1880 1886" 1888 
CH2 001352 12784 1837* 1839 1852 1876 1887* 1889s 
CLEAR1 006756 1999# 2001 
CLEAR2 007022 20108 2012 
CLKINT 020336 2610 
CMSG } © 012246 1319 25178 
C 006734 1949* 1953" 1966 19928 
COMPAR 011302 1532. 1556 1564 1572 1581 1589 1601 1624 1636 1644 1651 1673 23798 
C 006266 19208 1925 
CONVR 007136 2027 20308 
CONVRT 011060 1530 1554 1562 1570 1579 1587 1598 1610 1634 1642 1649 1862 2340 
CR = 000015 1163# 2608 
CRLF = 000200 11634 2608 
C 013673 1356 ©. 2560# 
C1 013676 1937 25614 
C2 013700 2143 2227, 2562 
C3 013703 2226 25630 
DAC 001404 12918 1661 1664 1879 1883 1957* 1961* 1962 1987* 2293 2296 2299 2302 
DASH 012275 2089 2520" 
DAWAIT 54 1597, 1609 1633 1705# 
DDISP = 177570 1163#@ 1223-1348 
DECPNT 014564 2094e 2123" 25878 
DECTYP 011472 1671 1850 2090 2096 2104 2108 2111 2122 2173 2271 2274 2429" 
DELAY 001406 12928 1963" 1964s 
DELAY? 007216 2036 ©. 2044 
DELAY 007224 2038 2045 2046 
DELAYS 007132 20284 2029 
DELCLR 010330 2132-2144 «= 2228)~=— 22384 
014630 1240 1247 1253 1259 25960 
DH1 014405 1238 2582 
DH2 «014443 1257 25834 
DHS = «014526 1245 1251 25848 
DIFLIN 006736 1702. 1995 
DISPLA 001142 1223# 1348 1732% 2604* 2605 
DISPRE 000174 1215#@ 1348 
DIST 021622 2002 2069* += 2135 «= 26184 
012420 25298 
DRLPX2= eeeeee G S2# 2610 
DSWR = 177570 11634 1223 1348 
pT1 014570 1239 2592s 
DT2  =—s-_- 014602 1258 25934 
DUNAY 001360 131 16s7e Taree 1880" 1969-2251" 2307 
& ® ® ’ ¥ * 
EDGE 001410 12958 1658* 1894" 1897 1918 1923* 1926* 1927 1928 1929 1932 1980 2313 
e 
EDGFLG 006436 1B47* 1902 1934 1940# 2254* 23218 
EMTVEC= 000030 11634 1348s 
EM 014245 1237 25780 
EM2 014273 1246 25798 
EMS «= 014323 1250 2580 
a an eee 
ERMSG 012507 1678 1870 2100 2115 2127 2181 2285 25340 
RR 006040 1866 1870" : 
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Ps od 1348* 2604+ 
\¢ 4# 2008* 2081 2083* 
1 es 17908 
137 17918 
1289# 8 =13551* 1368* 2130 2184 
21898 2197 
1840 1890 19114 2252 2308 
1333-25184 
1215 2610 2614 
2124 25398 
2116 21184 
1371 25718 
1713 25584 
11634 2608 
2438* § 2450* 2452% 2455 25868 
2065. 20684 
11634 1348+ 
13144 1374 
12714 81373 1805 
13054 1350 2610* 
13054 1350 
13054 1973* 1974 1977* 1978 2032+ 2033 2610* 
13054  2610* 
i 15054 1972* 1976* 1980 2031* 2055 2610* 
13054 
13054  2610* 
13054 1350 2610* 
2079 «= 20928 
1701 17034 
2405 24074 
11634 2608 
2174 25578 
2223 2260 = 2.2308 
0 2138 2140 2233 24014 
0 22314 2235 
010304 2185 22298 
001446 13054 
001444 13054 
001434 13054 
001440 13058 
001436 13054 
001450 13054 
001452 13054 
001442 13054 
012531 1851 25248 
i an or 
001420 12978 1605* 1612 1616* 2205* 2210 2212* 2216 
010204 2208 22108 
012777 1758 8 8=— 2542 
012761 2275 25414 
Or eree 2272 8625408 
013735 25678 
001414 1295#@ 1617* 1666 2204* 2207 2209* 2215 
O18530 2431 25148 
013720 1672 25654 


—_—— — ewe wee OC om ewe eee 
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CR 11 3:59 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0092 
1 182 1669 5644 
13154 4 3 5514 
01 220 5454 
1312 1995 55 
1554 2151 5564 
13041 1429 5448 
013501 1384 5554 
142 1300@ 1477* 1481% 1484 1487* 1488 1490 1492 1497 1498 1499 1502¢ 1503 
1510 1540* 1541 1544* 1545 1551 1552 1595* 1596 1607* 1608 1712 §=1723* 
1725* 1727 1729 1860* 1861 1914* 1920" 1921 1923 2018* 2545 2346* 2352 
2353" 2354 2359 2364 2366 2367 
NAR 007476 2101 21034 
NARMSG 012546 2105 25368 
NARROW 001540 1273#@ = =2007* 2073* 2103 2118 
NBEXT 001554 12794 8=1417* 14235* 1428 1430* 1431 1781 1788* 1801* 
NEXT 007114 20248 2050 
NMBEXT 001556 12808 1431* 1801 
NOI 012375 2263 25278 
1A 010560 2253 22898 
NOIMSG 012150 1821 25128 
NOITST 010 1826 22508 
NOI1 010570 22918 2312 
NOI8 10652 1684 1686 1688 23054 
NONE 17 1530 1332 13404 
NOTNAR 007346 2072 20788 
NOTNEW 007776 2161 21664 
TOK 007242 2048 20528 
NOVT5S 002530 1359 1362 1367 13714 1440 
NXTCMP 010170 22068 2214 
NXTCVT 22 19714 1984 
NXTSTA 007740 21534 2167 
NXTY1 007674 21378 2142 
NXTS 010152 22024 2219 
OFFERR 004520 1676 16784 
OFFOK 004526 1677 16804 
OKAY 007234 2041 2043 20494 2053 
OKAYD 011516 2434 24368 
OKMSG 012476 1680 1867 2102 2117 2129 2183 2283 25328 
ONAD 013025 25434 
ONES 014566 2436% 2442e 2443 2445* 2454* 25898 
OUT 001424 12994 1996* 2005*  2066* 2107 2110 2113 2120 
OUTMSG 012644 2112 25384 
fe 001376 12884 2267 2269* 2273 2281 2290* 2299% 2302* 2310* 2319 25208 
PERCNT 001422 12984 1946 19478 1948* 1954" 1955* 1985 
PIRQ = 177772 11634 
PIRQVE= 000240 11634 
PLUS 007760 2158 21604 
PLUSR2 011376 2402 24044 
POPRO 001700 13384 1341 
S 011504 2430 24338 
POSPEA 010454 2268 22704 
POSRMS 010442 2265 22678 
POSR2 005666 1844 18464 
PRO = 000000 11634 
PR1 = 000040 11634 
PR2 = 000100 11634 
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PK 
‘CRLPKC.P11 14-AUG-80 13:59 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0093 
000140 4 ¢ 3 
000200 116 
6 11634 
000300 Bt 
000340 11654 
177776 11634 e910 
177776 11634 1387¢ 1714 2395* 
021554 2615 26168 
Bro o8 11634 1348 2615* 
012237 1340 1408 25154 
010776 2024 23284 
001726 1345 13478 
RDCHR = 104406 2600 26148 
RDLIN = 104407 1385 2602 26148 
RDOCT = 104410 1336 1833 1836 2610 
017672 26104 
AD 007264 20594 2093 
RELACC 007724 2131 21494 
STi = 002334 1353 13728 
RESVEC= 000010 11634 
0064 34 1935 19398 
003442 1520 15228 
001702 13394 2022 2350 
001374 12874 2264 2266* 2270 2296 2309* 2317* 2318 
001366 12844 1376* 2025 2528* 2334 
001370 12854 1377* 2328 2331* 
001372 12864 1378* 2329 2332 
011350 1321 1327 23934 
020344 26104* 
006176 1899 19014 
006440 1659 1662 1877 1881 2297 2300 
006512 1951 1952 19564 
020262 26108 
006146 18934 1896 
012344 1855 25258 
012150 1832 25134 
6 1842 1845 18764 1893 
006110 1692 1696 18864 
006724 1986 19884 
001344 1275#@ 2009*  2076* 2095 2098 
012524 2097 25358 
012433 1335 2176 25308 
012324 1734 25254 
001402 12904  2380* 2387 2593 
001100 11634 1320 1326 1348 1380 
012301 2084 25218 
177774 11634 
001316 12644 1477 1481 1488 1490 1498 1499 1503 1517 1518 1541 1552 1712 
1723 1725 1727 1759 1783* 1791" 1914 1920 1921 1959 2017 2018 2346 
2352 2354 2364 2592 2593 2594 
007642 2128 21308 
001140 sete 1331 1334 1337* §=61348* =. 1715 1717 1739 1823 1950 2244 2604 2605 
ae 
000176 12154 1348 
000001 11634 
000001 11634 
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Ww 


$wOi = 000002 11634 
SwO2 = 000004 11634 
SwOS = 000010 11634 
$w04 = 000020 11634 
SwOS = 000040 11634 
$w06 = 000100 11634 
$wO7 = 000200 11634 
wO8 = 000400 11634 
SwO9 = 001000 11634 
Swi == 000002 11634 
Sw10 = 002000 11634 
SWw11 = 004000 11634 
Swi2 = 010000 11634 
SWi35 = 020000 11634 
SW14 = 040000 11634 
$wi5 = 100000 11634 
SW2 = 000004 11634 
Sw3 = = 000010 11634 
SWw4 = =: 000020 11634 
SWS = = 000040 11634 
= 000100 11634 

SW7 = = 000200 11634 
SWB == 000400 11634 
w9 = 001000 11634 
TADDR 001564 12834 1328 1711* 1765 1754* 1771 1820* 1831* 
TBITVE= 000014 11634 

00134 12764 1600 1614 1620 1621 1622* 1661* 1664* 1665* 1668* 1670 1683* 1695* 

bt 1838* 1864 1911 2047* 2052e 2344e 2367% 2372e 23738 2374e 2375" 2581 

TENS 014565 2437e 8 2646* 2447 2449% 2453* 25888 
TEST 003416 1482 1493 1507 15184 1549 
TESTAD 002550 14148 1746 1756 1773 
TESTIT 003406 1449 1458 1463 1468 1472 15178 
TESTK2 011532 24398 2444 2448 2451 
TIME 020334 26104* 
TKVEC = 000060 11634 
TOMSG 012435 1835 25318 
TPVEC = 000064 11634 
TRAPVE= 000034 11634 1348* 
TRTIVEC= 000014 11634 

006532 19604 1989 
TRYAG 002424 13854 1409 
TST1 002716 14464 1447 
TST10 0032 14964 
TST11 §=©003444 15264 
TST 003516 15374 
TST1 00 1539 15534 
TST14 003674 15614 
TST15 0037 15694 
TST16 §©=©003754 15784 
TST17 004004 15864 

002762 14554 
TST20 004034 15944 
TST21 004302 16414 
TST22 004332 16484 
TST25 004362 16554 
TST24 004532 1679 16824 


LPA-ADI1K TEST MD-11-CRLPKC 


‘CRLPKC.P11 
1ST25 004572 
TST26 ©0046 
TST 003 
TST4 003024 
TSTS 003042 
TST6 3 
TST? = 003174 
TST8 =: 010216 
TYPBAD 007360 
TYPDS = 104405 
TYPE = 104401 
TYPEDG 006374 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
TYPOUT 011606 
TYPRP 010424 
TYPSET 005704 
UNEXP 001524 
VADR 001326 
VARLT1 011742 
VARLT2 011752 
VARLT3 011762 
VECTOR 001454 
VECTPS 001456 
VECTR1 001324 
VERSN 001460 
VLIN 011736 
VNP 011732 
VNR 011730 
VSET 011734 
VIFLG 002664 
VTINIT 014023 
VT55 002324 
vVVCT 001330 
v1 011706 
v10 011712 
v115 011720 
V144 011716 
v2 011710 
V240 011722 
v5 011724 
v50 011714 
v50D 011726 
FAD) 011636 
WFTEST 001416 
WIDE 001336 
WIDMSG 012605 
WRAP 003444 
wi 017522 
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2022* 


2350* 


SEQ 0095 


2178 


LPA-ADI1K TEST MD-11-CRLPKC 


CRLPKC.P11 
ue SEES 
Ww 017526 
'SAERR 017252 
‘SAPTHD 001000 
SASTAT= seeeee 
SATYC 016342 
SATY1 0163516 
SATYS 016324 
SATYS 016334 
SAUTOB 001134 
SBASE 001250 
SBDADR 001122 
SBDDAT 001126 
SBELL 001164 
$COW1 001254 
SCHARC 016312 
SCKSWR= eeeeee 
SCMTAG 001100 
$Cm3 
SCNT 020222 
SCNTILG 015075 
SCNTLU 015070 
$c 001222 
SCRLF 001171 
SDATR 017674 
021314 
SDEVCT 001204 
SDEVM 001252 
SDOAGN 012104 
SDTBL 021304 
SENDAD 012074 
SENDCT 012042 
SENDMG 012115 
SENULL 012110 
SENV 001214 
SENVE 001215 
SEOP 012006 
SEOPCT 012034 
SERFLG 001103 
SERMAX 601115 
SERROR 015504 
SERRPC 001116 
SERRTB 001256 
SERRTY 015700 
SERTTL 001112 
SESCAP 001162 
T 001214 
SETEND 001256 
SFATAL 001176 
SFFLG 016562 
SFILLC 001156 
SFILLS 001155 
SGDADR 001120 
SGDDAT 001124 
$GET42 012064 
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26104* 


1741 


1791 
1419 


1763 


1448+ 
2358* 


1792 
1424¢ 


2600 


1518 


2605 


2605+ 


2604* 
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1519 2359* 

2606 2608 

2606 

2605 

1457+ 462 
593 


2381* 


1467* 


2382 


1471* 


2592 


1478« 


2593 


1489* 


2594 
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CRLPKC.P11 14-AUG-80 13:59 ROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0097 
SGTSWR= seeeee 2614 
‘SHD == 000000 1162 
SHIBTS 001000 12228 
SHIOCT 015224 26024* 
001104 12234 2604* 
021546 26154 
020070 1477 1481 1484 1490 1492 1499 1510 1518 1551 1725 1727 1729 1920 
1921 1923. 2345 2352 2564 2366 8 =. 26108 
001135 12238 
001114 12234 2605* 2606 
001172 12234 2600 2605 2608 
016561 26094* 
017254 26108 
001106 12234 1348 1446* 1529* 2604* 
016564 26108 
001110 12234 8=61348* 1447* 1528 2604* 2605 
017676 26104 
001226 12234 
001232 12234 
001236 12234 
001242 12234 
001174 1222 12234 1348 2604 2605 2608 
001224 12234 
001230 12234 
001234 12234 
001240 12234 
001002 1222e 
016560 26094* 
015115 26004 
001210 12234 2609* 
001212 12234 2609* 
001174 12234  2609* 
015102 26004 
001225 12234 
001251 12234 
001235 12234 
001241 12234 
015502 26044 
001154 12234 2608 
000001 14464 16558 14618 14664 14708 1475 14864 1496 1526@ 1537# 1555@ 15618 15698 
15784 15864 15948 16414 16484 1655 16824 16918 16998 
021074 26114 
020132 26104 
21076 26114 
017772 1419 1477 1481 1488 1498 1503 1517 1541 1545 1552 1596 1608 1712 
1723 1725 1861 1911 1914 1920 1962 2018 2346 2354 26108 
015466 26044 
Ra tene 1$S3e 1348* 1700 1755* 11772 2508* 2604 
020542 1958 2016 26108 
021542 26154 
021402 1348 26158 
021536 26154 
021454 26154 
VES 001170 12234 2600 2605 2608 
SRDCHR 014632 26008 2614 
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CRLPKC.P11 -14-AUG-80 13:59 ROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0098 
SRODEC= teeeee y 2614 
SROLIN 014752 26008 2614 
SRDOCT 015124 6024 2614 
$SRDSZ = 000010 26008 
SRESET 020224 1631 2393 26108 
SRTNAD 012106 25084 
SR2A = eeeeee 2614 
$SAD 020220 2610#* 
SSAVRE= teeeee YJ 2614 
SSAVR6 021552 2615#* 
SSCOPE 015226 1348 26048 
SSETUP= 000037 1226# 13468 2508 2600 2604 2605 
$STUP = 177777 12268 
SSVLAD 015432 26048 
$SVPC = 000220 12208 
$SWR = 167400 1155@ 1162 1164 1223 1348 1446 1455 1661 1466 14670 1475 1486 1496 
1526 1537 1553 1561 1569 1578 1586 1596 1641 1648 1655 1682 1691 
1699 2508 2604 2605 2615 
SSWREG 001216 1223@ 1348 
SSWRMK= 000000 1164 2604 
STBF4 007136 20314 
STEMP1 001430 1301@ 1969* 1970* 1972 2019* 2020* 2031 
STEMP2 001432 1302# 1967* 1968* 1976 
STESTN 001200 12234 2604* 
STIMES 001160 1223H 1348% 1496* 1526" 1537* 1553* 1561* 1569* 1578* 1586 15948 1641* 16488 
1655* 1682% 1691* 1699 2508  2604« 
$TKB 001146 1223@ 1315 1441 «260 2610 : 
$TKS 001144 1223 1355" 1386" 1435 1632* 2394* 2504* 2600 2610 
S$TLKR 017530 26108 
STLKW 017414 26104 
$™N = 000027 1156#@ 1162 1446 16558 14618 14668 14708 14758 1486 14696# 1526@ 1527 15378 
1539 1553 15614 1559% 15784 19868 15944 1641 16484 16554 1679 16824 16918 
STOUT 020164 26108 
$TPB. -: 001152 1223@ 2412 2422 2608 
STPFLG 001157 12234 26 
TPS 001150 1223@ 2410 2420 2608 
STRAP 021324 1348 26148 
STRAP2 021346 26148 
STRP = 000011 26144 
STRPAD 021360 26148 
STSTM 001004 12220 
STSTNM 001102 1223 1527* 2508*  2604* 2605 
STTYIN 015060 26004 
STYPBN= teeeee UJ 2614 
STYPDS 021100 26124 2614 
STYPE 016034 26084 2609 2614 
STYPEC 016246 26084 
STYPEX 016314 26084 
$TYPOC 020676 26114 2614 
STYPON 020712 26118 2614 
STYPOS 020652 26118 2614 
0066 19724 
T 001206 12234 
SUNITM 001010 1222 
SuSWR 001220 12234 
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PK 

CRLPKC.P11 14-AUG-80 13:59 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0099 
'SUTK 020346 1218 26108 
SVECT1 001244 12234 861794 1796 
SVECT2 001246 12234 
SKXTSTR 015236 26048 
$$GET4= 000000 25084 
Borkte ececes & 804. 260 

= e#eeeeee 

s 1215@ 1220 12218 1222 12238 13058 1348 2508 26004 2604 2605 26064 2608 

26094 2610 26124 2615 2617# 26188 26208 26224 26248 

.DVLS 001462 1305@ 1350* 1415 1416* 2610* 
SASTA= seeeee 2609 
.$x = 001000 12228 


ad 
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1720 


1461 


1735 


1466 
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1852 


1470 


1856 


1475 


1864 


1486 


1494 
2610 


1518 
1541 


2354 


1496 


1512 


1436 


1470 
1682 


1933 


1496 


1508 


1551 
1545 


1526 


1537 


1938 


1526 


1535 


1725 
1552 


1537 


1553 


1440 


1486 
1699 


2088 


1537 


1550 


1727 
1596 


1553 


1561 


1453 


1496 
2508 


2175 


1555 


1559 


1729 
1608 


1561 


1569 


1520 


1526 
2600 


2178 


1561 


1567 


1920 
1712 


1569 


1578 


1539 


1537 
2602 


2278 


1569 
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--—— 


LPA-AD11K TEST MD-11-CRLPKC 
CRLPKC.P11 14-AUG-80 13:59 





SEQ 0101 





RUN- : 12 1_SECONDS 
RUN-TIME RATIO: 159/39=5. 
CORE USED: 36K (71 PAGES) 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPKC,CRLPKC/CRF=CRLPAB.MAC,CRLPKC.P11 
TIME: 24 


ee ee ee ee ee ee ee eee eee 


1586 1594 1641 1648 1655 1682 1691 1699 
SSSET 26148 
SSSETM 13488 
SSSKIP) 11634 8 1539 1679 
~EQUAT 11578 1163 
~HEADE 11578 1162 
-KMAD 554 81305 
-KSIS 1844 1350 
~LOADL 4598 2610 
-LPAIN 2094 2610 
»PUTCS 4184 2610 
RESET 3294 2610 
~SETUP 11598 1224 
~SWRHIT 11598 1164 
~SWRLO 11644 
~UTK 699% 2610 
~SACT1 11604 1220 
SAPTB 11608 12238 
-SAPTH 11608 1222 
~SAPTY 11604 2609 
~SCATC 11574 #8 1215 
~SCMTA 11578 1223 
- SEOP 11574 2508 
~SERRO 11584 2605 
~SERRT 11594 260 
-SINLP 6524 2610 
. SMMAC 1414 
- SOUTL 6104 2610 
-SPARM 11584 
~SPOWE 11584 2615 
~-SRAND 11604 
~SRDOC 11604 2602 
~SREAD 11584 2600 
-SSAVE 11584 
-SSCOP 11584 2604 
~SSPAC 11598 
-$S 11594 
- STLKW 5114 2610 
-STOUT 13054 2610 
~STRAP 11598 2614 
-STYPD 11604 2612 
STYPE 11594 2608 
-STYPO 11584 2611 
. ABS. 0623500 000 CON RW ABS GBL OD 
001 CON RW REL LCL I! 


a me 
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——— er 


SEQ 0102 
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;DEFAULT TITLE MACY11 30G6(1063) 24-0CT-80 09:50 PAGE 1 


IS THE SAME AS ‘'CRLPXO.P11°" EXC + IT IS LOADED INTO 65900 


FILE 
S$ ALSO THE SAME AS DRLPX2.P11"° EXCEPT NAME CHANGE “CRLPX2.P11°° 


LIST MC,BIN,BEX,MEB 
~NLIST MD,CND,ME 


ADDRESS==-1 
MACRO ie ae FOR M8200 AND M8204 MICRO-PROCESSOR 
INSTRUCTION 
TO BE USED vith "RSX MACRO-11 ASSEMBLER 
26-MAY-1976 
SBEGIN 
$LOC 42000 


~GLOBL DRLPX2 
~ENABL GBL 


;* 
;*MICRO CODE FOR KMC-11 
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SEQ 0105 
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DRLPX2C( IMAGE) MICRO CODE 





me ea ee ee ee ee 


n 8 : 
sDEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:50 PAGE 2 





. - a me mm mm mm i mr rm mm re re ree es” _—- 


CRLPX2.P11 02-NOV-79 11:22 SEQ 0104 
460 :*THIS CODE WILL BE DOWN LOADED INTO BOTH 
461 >#KMC-11'S. THE CODE RUNS ASYNCRONOUS TO THE PDP-11 CODE 
rs s#WE SYNC THROUGH COMMANDS PASSED VIA THE OUT*/IBUS* REGS. 
;* 
ss 
466 042000 DRLPX2: ; JUMP TABLE USED FOR COMMANDS 
467 042000 BR STARTU ;GOTO START 
(2) 042000 100407 .WORD «$$$. 
468 042002 BR CMNOP ;NOP=1 
(2) 042002 100420 .WORD .$$$. 
469 042004 BR RDSILO :=2 READ SILO PUT IN BSEL4 
(2) 042004 100430 .WORD «$$$. 
470 042006 BR WRSILO :=3 READ BSEL4 PUT IN SILO. 
(2) 042006 100432 -WORD .$$$. 
471 042010 BR ROCMND :=4 READ FAST PATH PUT IN BSEL4 
(2) 042010 100434 WORD «$$$. 
472 042012 R WRCMND :=5 READ BSEL4, PUT IN FAST PATH. 
(2) 042012 100436 -WORD .$$$. 
473 042014 BR SAMP :=6 TAKE AN A/D SAMPLE 
{¢? 042014 100440 -WORD «$$$. 
475 :START OF U CODED 
476 
477 : 
478 042016 STARTU: 
479 042016 VE # 0,BREG 
(3) Re Soa6 000400 ~WORD  . ‘ 
480 042020 VE BREG,OUT1 <O> ;CLEAR UNIBUS CSRS 
(3) 042020 061220 -WORD .$$$. 
481 042022 MOVE BREG,OUT1 <2> 
(3) 042022 061222 -WORD .$$$. 
462 042024 MOVE BREG,OUT1 <3> 
(3) 042024 061223 ~WORD . 
483 042026 MOVE BREG,OUT1 <4> 
(3) 042026 061224 «WORD. : 
484 2030 MOVE BREG,OUT1 <5> 
(3) 2030 061225 -WORD . 
485 042032 MOVE BREG,OUT1 <6> 
(3) 042032 061226 WORD «$$$. 
486 2034 MOVE BREG,OUT1 <7> 
(3) 042034 061227 -WORD «$$$. 
487 042036 MOVE BREG,SPAD <6> 
‘2 042036 063226 -WORD «$$$. 
489 042040 CMNOP: MOVE INPO <12>,0UT1 <0> ;READ STATUS 
(3) 042040 021240 : eWORD . 
490 042042 MOVE # 377, BREG 
(3) 042042 000777 -WORD ‘ 
491 042044 MOVE BREG,OUT1 <2> : INDICATE READY FOR COMMAND. 
{3 042044 061222 ~WORD .$$$. 
198 042046 LOOP: MOVE INPO <12>,0UT1 <0> ;READ STATUS 
yf 042046 021240 .WORD .$$$. 
495 042050 MOVE INP1 <2>,SPAD <0> ;READ COMMAND REG. 


—————— tities — 
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ry ee MICRO CODE ;DEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:50 PAGE 2-1 





CRLPK2.P11 O2-NOV-79 11:22 SEQ 0105 
(3) 042050 123040 -WORD .$$$. 
496 04205 B27 LOOP :NO COMMAND THEN LOOP 
{g) 042052 101423 -WORD .$$$. 
498 042054 MOVE INP1 <2>,SPAD <0> ;RE=-EAD COMMAND. 
ie 042054 123040 .WORD .$$$. 
500 042056 ap SPAD <0> ;BR BASED ON CMND. 
(2) 042056 160600 -WORD .$$$. 
501 sNO-USER PROTECTION OFFERED. 
502 :IF YOU ENTER WRONG CODE - 
503 ;YOU LOSE. 
504 
505 : 
506 *sROUTINE TO READ THE SILO, PUT IN 
507 :*BUS REG 4 
ee : CMD=2 
510 042060 RDSILO: MOVE INPO <10>,0UT1 <4> ;READ SILO. 
(3) 042060 021204 .WORD «$$$. 
511 sWRITE *BuUS 
$12 042062 ste CMNOP :RETURN. 
2 042062 100420 .WORD «$$$. 
514 : 
$15 sROUTINE TO WRITE SILO, READ DATA FROM 
516 :*BUS REG 4 
517 ; CMD= 
3 
520 042064 WRSILO: MOVE INP1 <4>,0UTO <10> ;READ DATA IN *BUS 
(3) 042064 122110 -WORD «$$$. 
521 sWRITE SILO. 
522 042066 &R CMNOP 
(2) 042066 100420 -WORD .$$$. 
# 
525 sROUTINE TO READ FAST PATH (CMND) REG. 
526 ;PUT IN *BUS REG 4 
527 ;CMD=4 
355 
530 042070 RDCMND: MOVE INPO <11>,0UT1 <4> ;READ FAST PATH 
(3) 042070 021224 .WORD «$$$. 
531 sWRITE *BUS. 
532 042072 BR CMNOP s RETURN 
(2) 042072 100420 -WORD «$$$. 
535 sROUTINE TO WRITE FAST PATH (CMND) REG. 
536 >TAKE DATA FROM *BUS REG 4. 
537 :CMD=5 
33 ' 
as5 042074 WRCMND: MOVE ‘-) <4>,0UTO <11> ;READ DATA IN *BUS 


» 062074 122111 . WORD 
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CRLPX P11 O2=NOV-79 11:22 SEQ 0106 
541 :WRITE INTO FAST PATH, 
542 042076 ick CMNOP RETURN. 
(2) 042076 100420 .WORD $$$. 
544 
545 : 
546 “THIS ROUTINE TAKES AN A/D SAMPLE. 
547 :CALL= CMND 6 IN BSEL2 
548 “THESE REGS. MUST BE SET UP IN ADVANCE. 
549 “BSEL 3 MUST CONTAIN READ CODE FOR A/D BUFFER 
550 SEL 4,5 MUST CONTAIN A/D CSR 
551 “BSEL 6 MUST CONTAIN WRITE CODE FOR A/D CSR . 
552 “BSEL 7 MUST CONTAIN READ CODE FOR A/D CSR 
553 : BSEL 3,6,7 WILL REMAIN UNEFFECTED. 
554 > BSEL 4,5 WILL CONTAIN A/D SAMPLE. 
$32 *BSEL2 WILL CONTAIN CODE 377 WHEN DONE. 
566 
567 042100 WIMC = SAMP 
(4) 042100 020640 .WORD $$$. 
(3) 042102 103040 .WORD .$$$. 
568 042104 MOVE  INP1 <6>,0UTO <11> :SEND A/D WRITE CODE. 
(3) 042104 122151 .WORD .$$$. 
569 042106 WIMC = SAMP'1 
(4) 042106 020640 .WORD $$$. 
(3) 042110 103043 .WORD $$$. 
570 042112 MOVE  INP1 <4>,0UTO <11> :SEND LOW BYTE CSR INFO. 
(3) 042112 122111 . .WORD .$$$. 
571 042114 WIMC  SAMP2 
(4) 042114 020640 .WORD $$$. 
(3) 042116 103046 .WORD $$$. 
572 042120 MOVE INP1 <5>,0UTO <11> :SEND HIGH BYTE CSR INFO. 
($) 042120 122131 .WORD .$$$. 
573 042122 WIMC SLOOP 
(4) 042122 020640 -WORD «$$$. 
(3) 042124 103051 .WORD .$$$. 
574 042126 MOVE INP1 <7>,0UTO <11> “SEND READ CODE TO GET A/D CSR. 
(3) 042126 122171 .WORD .$$$. 
$75 042130 WTMC SAMP3 
(4) 042130 020640 -WORD «$$$. 
(3) 042132 103054 .WORD $$$. 
576 042134 WTMM  SLOOP1 
(4) 042134 020640 .WORD $$$. 
(4) 042136 061620 .WORD .$$$. 
(3) 042140 103056 -WORD = «$$$. 
577 042142 MOVE INPO <11>,BREG 
(3) 042142 020620 ~WORD : 
578 042144 MOVE  BREG,SPAD <0> 
(3) 042144 063220 -WORD : 
579 042146 SLOOP2 
(4) 042146 020640 WORD .$$$. 
(4) 042150 061620 WORD .$$$. 
(3) 042152 103063 WORD «$$$. 
580 042154 INPO <11>,BREG 
(3) 042154 020620 WORD .$$$. 
581 042156 CMNOP “ABORT IF A/D BIT 15=1 
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(2) 042156 103420 -WORD .$$S. 
582 042160 MOVE SPAD <0>,BREG 
(3) 042160 060600 .WORD .$$$. 
583 04 1¢ ga? LOPE 
(2) 042162 103473 -WORD .$$$. 
584 042164 BR SLOOP :1F A/D NOT DONE,EXIT. 
(2 042164 100451 -WORD .$$$. 
585 042166 LOPE : MOVE INP1 <3>,0UTO <11> : ISSUE READ A/B BUFFER. 
(3) 042166 122071 .WORD .$$$. 
586 042170 wTMM SLOOP3 
(4) 042170 020640 ~ WORD $$$. 
(4) 042172 061620 -WORD .$$$. 
(3) 042174 103074 -WORD .$$$. 
587 042176 MOVE INPO <11>,0UT1 <4> 
(3) 042176 021224 -WORD .$$$. 
588 042200 WTMM SLOOP4 
(4) 042200 020640 » WORD $$$. 
(4) 042202 061620 -WORD .$$$. 
(3) 042204 103100 .WORD .$$$. 
589 042206 MOVE INPO <11>,0UT1 <5> 
(3) 042206 021225 -WORD .$$$. 
590 042210 Be CMNOP 
(2) 042210 100420 .WORD .$$$. 
591 042212 177777 -WORD 1 
592 000001 . END 
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‘DRLPX (IMAGE) MICRO CODE 


CRLPXK2.P11 


ADDRES= 177777 
CLK = 000020 


CMNOP 040 
DRLPX2 042000 G 
LOOP 046 


ROCMND 
RDSILO 
. ABS. 
ABCODE 004000 


ERRORS DETECTED: 


O2-NOV-79 11:22 


WRSILO 
SSSSER= oe stH 


: 0 
DEFAULT GLOBALS GENERATED: 


“py t CRLPX2=CRLPX2 
RUN-TIME: 3 3.0 S 


RUN-TIME RATIO: 34/7=4. 


CORE USED: 56K 


re ee ee ee ee ee we ee = 


ADC 
. ADD 
000 OVR 
001 CON 
002 CON 
0 
EC me 
(71 PAGES) 





FRRRRRRESSES 


, om 
MIPOPORIPY PPO PUPYI PEP 
AN "ONE WNW "OO 


&FOOOO FNMNOF OO 


RW 
RW 
RW 


;DEFAULT TITLE 
SYMBOL 


ABS 
ABS 
REL 


LCL 
LCL 
LCL 


MACY11 306(1063) 
TABLE 


— 000020 


-AND = 000260 
-B80 = 002000 
-BB4 = 003000 
.BB7 = 003400 
BC = 001000 
-~BR = 000400 
-BSBRG= 160000 
-BSIMM= 100000 
-~BSMEM= 140000 
CO = 000400 
DBR = 000400 
-DBRSH= 001400 
DEC = 000160 
D 

I 

] 
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so = 002400 


“SELA = 000200 


ELB = 000220 
IMM = 000000 
INO = 020000 
IN1 = 120000 
MEM = 040000 
SuB = 000340 
.SUBWC= 00004 
.SUB2C= 000360 
.s0 = 0200 
-xOR = 000320 
.$$$. = 100420 
.-LOC = 042040 
.2A == 000120 
-2AWC = 000140 


SEQ 0108 


